[Frankster]

Office XP!

Funkt leider auch nicht :-(

with fs
    .LookIn = "d:\"
    .FileType = msoFileTypeExcelWorkbooks
    .Filename = "*.*"
    .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

Hab mal Filename *.* eingetragen und der findet Files die ich schon längst in einen anderen Ordner verschoben haben.
Und dann findet er wieder keine Files, die aber unter D:\ sind!
Also ich versteh das nicht, was der da macht!!

Mfg
Frankster