Hallo zusammen,

da wir viel mit teilweise sehr alten Exceldateien unterschiedlicher Herkunft arbeiten, benötigen wir eine kleine Historie der Dateien.
Hierfür haben wir ein Makro, welches Informationen ausliest und darstellt. Genutzt werden die BuildinDocumentProperties (BiDP) sowie das FileSystemObject (FSO).
 

If Workbooks.Count > 0 Then
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set objFile = FSO.GetFile(ActiveWorkbook.FullName)
        
        'Dates
        lstHist.Clear
        
        With lstHist
            'BiDP: Last print date
            On Error Resume Next
                .AddItem "BiDP"
                .List(0, 1) = "Druck"
                .List(0, 2) = ActiveWorkbook.BuiltinDocumentProperties(10).Value
                .List(0, 3) = ""
            On Error GoTo 0
            
            'BiDP: Creation date (and Author)
            On Error Resume Next
                .AddItem "BiDP"
                .List(1, 1) = "Erstellung"
                .List(1, 2) = ActiveWorkbook.BuiltinDocumentProperties(11).Value
                .List(1, 3) = ActiveWorkbook.BuiltinDocumentProperties(3).Value
            On Error GoTo 0
            
            'BiDP: Last save time (and Last Author)
            On Error Resume Next
                .AddItem "BiDP"
                .List(2, 1) = "Speicherung"
                .List(2, 2) = ActiveWorkbook.BuiltinDocumentProperties(12).Value
                .List(2, 3) = ActiveWorkbook.BuiltinDocumentProperties(7).Value
            On Error GoTo 0
        
            'FSO: DateCreated
            On Error Resume Next
                .AddItem "FSO"
                .List(3, 1) = "Erstellung"
                .List(3, 2) = objFile.DateCreated
                .List(3, 3) = ""
            On Error GoTo 0
        
            'FSO: DateLastModified
            On Error Resume Next
                .AddItem "FSO"
                .List(4, 1) = "Änderung"
                .List(4, 2) = objFile.DateLastModified
                .List(4, 3) = ""
            On Error GoTo 0
            
            'FSO: DateLastAccessed
            On Error Resume Next
                .AddItem "FSO"
                .List(5, 1) = "Zugriff"
                .List(5, 2) = objFile.DateLastAccessed
                .List(5, 3) = ""
            On Error GoTo 0
        
        End With

Die Liste wird anschließend nach Datum sortiert und tut gut ihren Dienst.
Aber:
- Wie kann es sein, dass das BiDP-CreationDate manchmal einige Jahre vor dem DateCreated im FSO liegt? Was ist in diesen Fällen mit der Datei passiert?
- Außerdem ist aufgefallen, dass DateLastModified sowie DateLastAccessed (FSO) in der Regel identisch sind. Kann das jemand bestätigen?
- Öffne ich die Dateieigenschaften im Windows-Explorer finde ich die FSO-Informationen auf dem ersten Reiter "Allgemein" wieder. Auf dem Reiter "Details" gibt es unter Ursprung aber ein "Letzte Speicherung"-Datum, welches weder einem der FSO- noch einem BiDP-Wert entspricht. Wo kommt der denn her?
- Und letztlich: Die BiDPs kann ich ja jederzeit ändern. Lassen sich auch die anderen Dateiinformationen anpassen?

Ich danke Euch!