Schnelle Dateisuche in Unterordnern incl.
02.09.2004 13:34:30
chris
eine frage und zwar suche ich mit dieser Art code in einem Ordner und allen seinen unteroirdnern nach dateien mit der Endung ".dat"
Da es aber sehr sehr viele Unterordner usw. gibt in denen zu suchen ist dauert die suche je nach anzahl der vorhandenen files sehr lange.
Gibt es vieleicht eine schnellere möglichkeit diese Dateien zu finden.
Falls nicht Danke trotzdem ! grüße Christain
:code
Dim objFileSearch As FileSearch
Dim strVerzeichnis As String, strDatei As String
strVerzeichnis = strDir
If strVerzeichnis = "" Then Exit Sub
' Name nach dem Gesucht wird !
strDatei = "*.DAT"
If strDatei = "" Then Exit Sub
Set objFileSearch = Application.FileSearch
x = 1
With objFileSearch
.LookIn = strVerzeichnis
.SearchSubFolders = True
.Filename = strDatei
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) = zeichengehtnicht Then
i = .FoundFiles.Count