Filesearch
02.05.2008 19:24:00
Specke
ich durchsuche mit Filesearch eine ziemlich große Ordnerstruktur nach Dateinamen und möchte, dass beim ersten Treffer ein Abbruch erfolgt.
Wie kann ich das bewerkstelligen?
Im Moment sieht es so aus:
Sub DateiSuche()
With Application.FileSearch
.Filename = actWs.Range("H" & i).Value
.LookIn = "\\Support"
.SearchSubFolders = True
.Execute
If .FoundFiles.Count = 0 Then
Msgbox "Nicht gefunden"
Else
For j = 1 To .FoundFiles.Count
Msgbox .FoundFiles(j)
Next j
End If
End With
End Sub
Danke und Gruß
Specke