With Application

Sub finden()
Dim i As Integer
'Neue Suche definieren
With Application.FileSearch
.NewSearch
.LookIn = "\\Ginwesapvoh\var_log\atl\var\opt\dfue\fehler\"
.SearchSubFolders = True
.FileName = "*.*"
.MatchTextExactly = False
.FileType = msoFileTypeAllFiles
End With
'Suche ausführen
With Application.FileSearch
If .Execute() > 0 Then
MsgBox "Fehler gefunden " & .FoundFiles.Count & _
" Datei gefunden"
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "Verzeichnis leer"
End If
End With
End Sub