Thema Datum  Von Nutzer Rating
Antwort
Rot Dateieigenschaften: Datumswerte
01.02.2019 13:56:37 Sven
Solved
01.02.2019 14:57:49 Gast57780
Solved
02.02.2019 09:07:36 Werner
Solved
04.02.2019 09:09:14 Sven
NotSolved

Ansicht des Beitrags:
Von:
Sven
Datum:
01.02.2019 13:56:37
Views:
70
Rating: Antwort:
 Nein
Thema:
Dateieigenschaften: Datumswerte

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!


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Dateieigenschaften: Datumswerte
01.02.2019 13:56:37 Sven
Solved
01.02.2019 14:57:49 Gast57780
Solved
02.02.2019 09:07:36 Werner
Solved
04.02.2019 09:09:14 Sven
NotSolved