Dateieigenschaften mit VBA auslesen

Mit meiner neuen Klasse clsFileProperties können die Dateieigenschaften wie zum Beispiel Größe, Geändert am, Erstellt am, Letzter Zugriff am, Kommentare, Kameramodell und Bild aufgenommen am bequem ausgelesen werden.

Die Beispiel-Datei zeigt einige Anwendungsbeispiele:

Sub TestClsFileProperties()
    Dim FP As clsFileProperties
    Set FP = New clsFileProperties

    FP.strfolder = "D:\"
    Debug.Print FP.strfolder
    Debug.Print FP.NumberOfFiles

    FP.FirstFile
    Do
        Debug.Print FP.Name, FP.Größe, FP.Typ
    Loop Until Not FP.NextFile

    FP.LastFile
    Do
        Debug.Print FP.Name, FP.Größe, FP.Typ
    Loop Until Not FP.PrevFile

    FP.FirstFile
    Do While Not FP.EOF
        Debug.Print FP.Name, FP.Größe, FP.Typ
        FP.NextFile
    Loop

    FP.LastFile
    Do While Not FP.BOF
        Debug.Print FP.Name, FP.Größe, FP.Typ
        FP.PrevFile
    Loop
End Sub

Code eingefügt mit Syntaxhighlighter 4.15

Hier eine Liste mit allen Schlüsselworten:
Name
Größe
Typ
Geändert_am
Erstellt_am
Letzter_Zugriff_am
Attribute_
Status
Besitzer
Autor
Titel
Thema
Kategorie
Seiten
Kommentare
Copyright
Interpret
Albumtitel
Jahr
Titelnummer
Genre
Dauer
Bitrate
Geschützt
Kameramodell
Bild_aufgenommen_am
Abmessungen
Folgenname
Sendungsbeschreibung
Abtastgröße
Abtastrate

AnhangGröße
clsFileProperties.cls6.8 KB
TestClsFileProperties.bas902 Bytes
Your rating: Keine Average: 4.8 (6 votes)