Gruppe
Datei
Problem
Wie kann ich, ausgehend von einem Startverzeichnis, dieses und alle Unterverzeichnisse nach einem bestimmten Dateinamen durchsuchen lassen?
StandardModule: basMain
Sub SearchFile()
Dim iCounter As Integer
With Application.FileSearch
.FileName = Range("B1").Value
.LookIn = Range("B2").Value
.SearchSubFolders = True
.Execute
If .FoundFiles.Count = 0 Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Else
For iCounter = 1 To .FoundFiles.Count
MsgBox .FoundFiles(iCounter)
Next iCounter
End If
End With
End Sub