Application.FileSearch
SiegfriedR
offen sichtlich gibt es den Befehl Application.FileSearch in Excel 2010 nicht mehr ?
Wie lautet der Ersatz ? Folgende Aufgabe:
Ich möchte eine Liste aller Dateien aus allen Unterordner ab einer bestimmten Ebene erzeugen.
Ich habe zwar in der Hilfe was gefunden, allerdings nur für das aktuelle Verz, dh. die Unterverz brauche ich auch mit Namen und den enthaltenen Dateien
Mein alter Code der nicht mehr funktioniert:
With Application.FileSearch
.LookIn = ActiveWorkbook.Path
.FileType = msoFileTypeAllFiles
.Execute
If .Execute() GRÖSSER 0 Then
AnzFilesGes = .FoundFiles.Count
For i = 1 To AnzFilesGes
aktFile = .FoundFiles(i) ' incl. Verzeichnis
Next i
End If
End With