Application.FileSearch
Laund
Wir haben heute das neue Excel Version 14.0 installiert
Application.FileSearch gibt es nach google-suche nicht mehr
und mit den Alternativen komme ich irgendwie nicht zurecht
Mein bisheriger Code war:
Set fs = Application.FileSearch
With fs
.SearchSubFolders = True
.LookIn = "P:\Aktuell\")
.Filename = "Test*"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
Eingabefeld.IBS_Liste.AddItem (.FoundFiles(i))
Next i
End If
End With
tausend Dank für Eure Antworten!
Gruss
Raphi
Anzeige