Eine Datei suchen, unter Einbeziehung der Unterverzeichnisse (Tipp_89) -
02.08.2009Wenn Sie nicht wissen, in welchem Verzeichnis sich eine Datei befindet, hilft dieses Makro, um aus EXCEL heraus die Datei zu finden. Dabei wird nicht nur im aktuellen Verzeichnis gesucht, sondern auch in allen Unterverzeichnissen:
Sub Suchen()
Dim objFileSearch As FileSearch
Dim strVerzeichnis As String, strDatei As String
strVerzeichnis = InputBox("Verzeichnis:", , "c:excel")
>Stellen Sie hier das Ausgangsverzeichnis ein!
If strVerzeichnis = "" Then Exit Sub
strDatei = InputBox("Dateiname:", , "test.xls")
>Die zu suchende Datei heisst "test.xls"
If strDatei = "" Then Exit Sub
Set objFileSearch = Application.FileSearch
With objFileSearch
.LookIn = strVerzeichnis
.SearchSubFolders = True
.FileName = strDatei
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox .FoundFiles(1)
Else
MsgBox "Datei wurde nicht gefunden!"
End If
End With
End Sub
