Hallo!
Wie kann man alle Dateien (volle Dateiname) eines Ordners und allen Unterordner in einer Spalte auflisten?
Ich möchte eigentlich die folgenden Zeilen kombinieren:
1.
str_path = cells(1,1)
str_file = Dir(str_path & "*.xls")
int_a = 2
Do While str_file <> ""
Cells(int_a, 1).Value = str_file
int_a = int_a + 1
str_file = Dir()
Loop
2.
With Application.FileSearch
.Filename = "*.*"
.LookIn = Cells(1, 1)
.SearchSubFolders = True
.Execute
End With
Geht das denn?