Datei finden und Pfad ausgeben

Option Explicit
Private Declare Function SearchTreeForFile Lib "imagehlp.dll" ( _
ByVal RootPath As String, ByVal InputPathName As String, _
ByVal OutputPathBuffer As String) As Long
Const Datei = "xyz.xlsm"
Public Sub test()
Dim FSO
Dim LWs
Dim LW
Dim lngAPI
Dim Pfad As String * 240
Set FSO = CreateObject("Scripting.FilesystemObject")
For Each LW In FSO.drives
If LW.isready Then
lngAPI = SearchTreeForFile(LW.Path & "\", Datei, Pfad)
If lngAPI  0 Then
MsgBox Application.Clean(Pfad)
Exit Sub
End If
End If
Next
MsgBox "Datei nicht gefunden"
End Sub