Declare Function SearchTreeForFile Lib "imagehlp.dll" ( _
ByVal RootPath As String, _
ByVal InputPathName As String, _
ByVal OutputPathBuffer As String) As Long
Private Sub Test()
Dim Retval As Long, TmpStr As String * 256
Retval = SearchTreeForFile("c:\users\LK\Documents\VBA", "Formular_Verteiler_ABT_HR3.xlsx", TmpStr)
If Retval = 0 Then
MsgBox "Es wurde keine Datei mit diesem Namen gefunden"
Else
MsgBox Left$(TmpStr, InStr(1, TmpStr, vbNullChar) - 1), , _
"Gefundene Datei"
End If
End Sub