Hallo,
ich habe leider keine Zeit das einzuarbeiten, aber das ist die Lösung die du suchst:
Sub DateiEigenschaften()
Dim fso As Object
Dim objDatei As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set objDatei = fso.GetFile("Pfad + Dateiname") 'hier mit deinen Variablen Pfad und dateiname definieren
Debug.Print "Dateityp: " & objDatei.Type
End Sub
Der Code gibt den Dateityp zurück. Wenn du das korrekt in eine Schleife einbindest, solltest du damit hinkommen.
MFG
|