Excel + VB + File suchen

[pc.net]

welche office-version? (ich hab schon festgestellt, dass es immer wieder unterschiede bei den vba-befehlen gibt)

bei excel-xp funktionierts so:

Set fs = Application.FileSearch

With fs
    .LookIn = "d:\"
    .SearchSubFolders = True
    .FileType = msoFileTypeExcelWorkbooks
    .Filename = "hallo.xls"
    .Execute

    If .Execute > 0 Then
        For i = 1 To .FoundFiles.Count
            MsgBox "File ist vorhanden (" & .FoundFiles(i) & ")"
        
            Workbooks.Open Filename:=.FoundFiles(i)
        Next i
    Else
        MsgBox "Das File ist nicht vorhanden"
    End If
End With