Suche nach zip-Dateien mit dem FileSearch-Objekt
13.06.2005 10:55:05
Peter
ich habe ein Problem (?) mit der Anwendung des FileSearch-Objektes.
Ich möchte eine komplette Festplatte nach zip-Dateien durchsuchen und alle gefundenen in Spalte A einer Tabelle auflisten.
Als Ergebnis bekomme ich jedoch immer eine leere Menge zurück. Suche ich jedoch z.B. nach XLS-Dateien so klappt alles wunderbar ...
Der relevante Teil des Codings sieht dabei wie folgt aus:
strPath = "F:\"
With objFS
.NewSearch
.LookIn = strPath
.SearchSubFolders = True
.Filename = "*.zip"
.MatchTextExactly = False
.FileType = msoFileTypeAllFiles
.Execute
End With
Habt Ihr eine Idee wo der Fehler liegt?
Vielen Dank für Eure Bemühungen und viele Grüße
Peter