In versteckten Ordnern suchen

Private Sub LookForDirectories(ByVal DirToSearch As String, _
FileToSearch As String)
Dim counter As Integer
Dim i As Integer
Dim Directories() As String
Dim Contents As String
counter = 0
DirToSearch = DirToSearch & "\"
Contents = Dir(DirToSearch, vbDirectory)
On Error Resume Next
Do While Contents  ""
If Contents  "." And Contents  ".." Then
If (GetAttr(DirToSearch & Contents) And vbDirectory) = _
vbDirectory Then
counter% = counter% + 1
ReDim Preserve Directories(counter)
Directories(counter) = DirToSearch & Contents
End If
End If
Contents = Dir()
Loop
If counter = 0 Then Exit Sub
For i = 1 To counter
GetFilesInDirectory Directories(i), FileToSearch
Application.StatusBar = "Durchsuche Ordner " & _
Directories(i) & "..."
LookForDirectories Directories(i), FileToSearch
Next i
End Sub

Private Sub GetFilesInDirectory(ByVal DirToSearch As String, _
FileToSearch As String)
Dim NextFile As String
On Error Resume Next
If InStr(DirToSearch, "\") = 0 Then Exit Sub
NextFile = Dir(DirToSearch & "\" & "*.*")
Do Until NextFile = ""
If NextFile = FileToSearch Then
intCount = intCount + 1
ReDim Preserve arrFiles(intCount)
arrFiles(intCount - 1) = DirToSearch & "\" & NextFile
End If
NextFile = Dir()
Loop
End Sub

Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter