Public Function Dateisuche(ByVal sDateiname As String, sLaufwerk As String) As _
  String
'Variablendeklaration
Dim oFile As Object
Dim oFolder As Object
Dim oSubfolder As Object
Dim fso As Object
'Rückgabewert=""
Dateisuche = vbNullString
'Wurden Werte übergeben?
If Len(sDateiname) = 0 Then Exit Function
If Len(sLaufwerk) = 0 Then Exit Function
'Objekte initialisieren
Set fso = CreateObject("scripting.filesystemobject")
Set oFolder = fso.getfolder(sLaufwerk)
'Wenn Verzeichnis nicht existiert, dann ist das Obj=NOTHING
If oFolder Is Nothing Then Exit Function
    'If oFolder.Attributes <> 22 Then
        For Each oFile In oFolder.Files
            If oFile.Name = sDateiname Then
                Dateisuche = oFile.Path
                Exit Function
            End If
        Next
    'End If
'Verzeichnisse und Dateien durchlaufen
For Each oSubfolder In oFolder.SubFolders
        For Each oFile In oSubfolder.Files
            If oFile.Name = sDateiname Then
                Dateisuche = oFile.Path
                Exit For
            End If
        Next
Next
 
End Function

MsgBox Dateisuche("AUTOEXEC.BAT", "C:\")