Anzeige
Archiv - Navigation
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Einlesen der Filesnamens eines Ordners

Einlesen der Filesnamens eines Ordners
25.02.2007 02:02:00
Moritz
Hallo,
gibt es eine möglichkeit per macro alle DAteinamen eines bestimmten verzeichnis auf der festplatte in eine Excel Tabelle einzulesen? Vielen Dank

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einlesen der Filesnamens eines Ordners
ransi
Hallo Moritz
Das geht z.B. mit Application.filesearch
Scchau es dir mal an:
Option Explicit


Public Sub test()
    Dim fs As FileSearch
    Dim datei
    Dim L As Long
    L = 1
    Set fs = Application.FileSearch
    With fs
        .NewSearch
        .LookIn = "D:\Eigene Dateien"
        .Filename = "*"
        .SearchSubFolders = False
        .Execute
        For Each datei In .FoundFiles
            Cells(L, 1) = datei
            L = L + 1
        Next
    End With
End Sub

Den Pfad musst du dir anpassen.
ransi
Anzeige

228 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige