Application.FileSearch
01.12.2003 14:34:45
Jörg Schreiber
Gibt es eine Moeglichkeit, mit Application.FileSearch (oder einer alternativen Loesung) eine Wildcard abzubilden?
Anstatt des Suchkriteriums "vollstaendiger Dateiname" nur einen Bruchteil, wie z.B. *haus*.xls. In etwa also:
With Application.FileSearch
.NewSearch
.Filename = Datei << gesucht: alle Dateien, in denen "haus" vorkommt
.LookIn = Verzeichnis
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
Cells(i,1).Filename
Next i
End With