Subfolder durchsuchen
07.04.2017 12:26:32
Schnappauf
ich möchte einen Ordner durchsuchen und die Dateinamen (bspw. "Name.pdf") in eine Excel-Liste schreiben.
Der Code soll dann auch die Subfolder durchsuchen und deren Subfolder usw.
Folgender Code klappt (natürlich bis jetzt nur in der ersten Ordner-Ebene):
Sub Dateinamen()
Dim f As Folder
Dim fso As Object
Dim fi As File
Dim zeile As Integer
zeile = 3
'Verweis auf Ordner erstellen
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("Dateipfad")
'Alle Dateien auflisten
For Each fi In f.Files
Cells(zeile, 3) = fi.Name
zeile = zeile + 1
Next
Set fso = Nothing
End Sub
Über Hilfe wäre ich dankbar!