if dir(Pfad und Dateiangabe) <> "" then msgbox "Datei da"

Option Explicit
Public blnSuche As Boolean
 
 
Public Sub suchen(verz As String, datei As String)
 Dim unterverz As Folder, _
     ordner As Folder, _
     fso As FileSystemObject
 
  If blnSuche = True Then Exit Sub
 
 
  Set fso = New FileSystemObject
  Set ordner = fso.GetFolder(verz)
 
 
  If Dir(ordner.Path & "\" & datei) <> "" Then blnSuche = True
 
 
 
  For Each unterverz In ordner.SubFolders
        Call suchen(CStr(unterverz), datei)
  Next
End Sub
 
 
Private Sub Form_Load()
 
 Call suchen("u:\", "ABG1A1.TIF")
 If blnSuche = True Then MsgBox "Juhu" Else MsgBox "Noo"
 
End Sub