habe folgenden Code im Archiv gefunden.
Nun würde ich gerne alle Dateinamen eines Ordners und sämtlichen Unterordnern auslesen.
Die Zeile Cells(iCnt, 2) = .FoundFiles.Name ist allerdings falsch. Ich weiß nicht genau, wie man sich den Namen ausgeben lässt.
Könnt ihr mir weiterhelfen?
Option Explicit
Sub Daten_Loeschen()
Dim fSearch As FileSearch
Dim wkb As Workbook
Dim strPath As String
Dim iCnt As Integer
strPath = "F:\test\"
Set fSearch = Application.FileSearch
With fSearch
.LookIn = strPath
.SearchSubFolders = True '<<<Unterordner durchsuchen True/False
.FileType = msoFileTypeAllFiles
.Filename = "*"
.Execute
For iCnt = 1 To .FoundFiles.Count
Cells(iCnt, 2) = .FoundFiles.Name 'Hier stimmt was nicht
Next iCnt
End With
End Sub
Gruß Jonatan