Dateityp auslesen | Fileattribut

Sub List_Files_in_all_folder()
' einschl unterordner von Ramses Rainer
' komplett mit Phad
Dim Dateiform As String
Dim i As Long, TotFiles As Long
Dim gefFile As String
Dim dname As String
Dim Suchpfad As String, suchbegriff As String
Dim OldStatus As Variant
Suchpfad = InputBox("Geben Sie den Ordner an, der durchsucht werden soll.", "Pfad definieren", Application.DefaultFilePath)
If Suchpfad = "" Then Exit Sub
Dateiform = InputBox("Geben Sie den Dateityp an der gesucht werden soll", "Dateierweiterung", "*.*")
If Dateiform = "" Then Exit Sub
Application.ScreenUpdating = True
OldStatus = Application.StatusBar
With Application.FileSearch
.LookIn = Suchpfad
'       suchen auch in Unterverzeichnis
.SearchSubFolders = True
.Filename = Dateiform
If .Execute() > 0 Then
TotFiles = .FoundFiles.Count
Application.StatusBar = "Total " & TotFiles & " gefunden"
For i = 2 To .FoundFiles.Count
gefFile = .FoundFiles(i)
'Eintragen der Dateien in die aktuelle Tabelle
'in Spalte A
Application.StatusBar = "Datei: " & i & " von " & TotFiles
Cells(i, 1) = gefFile
'   ergänzt
Cells(i, 2) = FileLen(gefFile)  ' Dateigröße
Cells(i, 3) = FileDateTime(gefFile) ' Dateidatum
Cells(i, 4) = fileattr(gefFile) 'Filetyp
Next i
End If
End With
Application.StatusBar = OldStatus
Application.ScreenUpdating = True
End Sub