Private Declare Function SearchTreeForFile Lib "imagehlp.dll" ( _
        ByVal RootPath As String, ByVal InputPathName As String, _
        ByVal OutputPathBuffer As String) As Long
 
Const MAX_PATH = 160
 
' rekursive Dateisuche
Public Function FileFind(ByRef hFileName As String, Optional ByVal hPart As _
  String = "C:\") As String
    Dim rApi As Long
    Dim hPfad As String
 
    On Error GoTo Fehler
    Err.Clear
 
    ' keine Datei übergeben
    If Len(Trim$(hFileName)) = 0 Then Err.Raise 75
 
    ' ZielPfad vorbereiten
    hPfad = String(MAX_PATH, 0)
 
    ' API-Aufruf
    rApi = SearchTreeForFile(hPart, hFileName, hPfad)
 
    ' gefunden ?
    If rApi = 0 Then Err.Raise 76
 
    ' Rückgabewert
    FileFind = Left(hPfad, InStr(hPfad, Chr(0)) - 1)
 
    Exit Function
Fehler:
 
    Err.Clear
    FileFind = ""
End Function