Dateityp auslesen | Fileattribut
08.03.2004 15:29:58
Russi
hoffe, dass dies nicht als Doppelposting gezählt wird...
Schaffe es nicht, aus folgendem Makro die Fileendungen zu den zugehörigen Dateien zu ermitteln..., bekomme jedes Mal einen Laufzeitfehler "13".
Vielleicht hat jemand einen Ansatz zu folgender Zeile
--> Cells(i, 4) = fileattr(gefFile) 'Filetyp
in untenstehendem Makro:
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