Office: Dateieigenschaften auslesen: Datumswerte

Sven007 · 30. Januar 2019

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).

Code:

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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

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!

:)

Der Steuerfuzzi · 12. Januar 2021

von Sven007

- 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?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Meine Vermutung: Die Datei wurde mal in das jetzige Verzeichnis kopiert und damit ist das CreationDate das Datum an dem kopiert wurde.

von Sven007

- Ö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?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das müsste eigentlich aus den Dokumenteigenschaften des jeweilgen Programms kommen (hier Excel) und sollte mit Deinen BiDP-Werten übereistimmen.

von Sven007

- Und letztlich: Die BiDPs kann ich ja jederzeit ändern. Lassen sich auch die anderen Dateiinformationen anpassen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Welche Anderen meinst Du? Die Properties lassen sich normalerweise auch ändern, werden aber ggf. wieder vom Programm überschrieben.

steve1da · 1. Februar 2019

Hola,

zur Info...

http://www.herber.de/forum/messages/1672766.html
http://www.vba-forum.de/forum/View.a...n:_Datumswerte

Gruß,
steve1da

Sven007 · 1. Februar 2019

Hallo Michael,
vielen Dank für die schnelle Antwort.

Das mit dem Kopieren kann es sein, stimmt. Erstaunlich, dass für Windows dann das Erstell-Datum geändert wird. Hier ist dann wohl eher der Wert in den BiDP der wahre.

Das mit der "Letzte Speicherung" unter Urpsung hätte ich mir auch so gedacht. Aber es ist in der Tat manchmal ein Wert, der weder den FSO noch den BiDP-Werten entspricht.

Mit Ändern meine ich: Setzen des DateCreated (FSO) mit dem CreationDate (BiDP) um obiges Problem (Datum taugt nichts, da Datei verschoben/kopiert) zu beheben. Hast Du da eine Idee?

Schönes Wochenende und Grüße
Sven

Office: Dateieigenschaften auslesen: Datumswerte

Dateieigenschaften auslesen: Datumswerte

Dateieigenschaften auslesen: Datumswerte

Dateieigenschaften auslesen: Datumswerte

Dateieigenschaften auslesen: Datumswerte - Similar Threads - Dateieigenschaften auslesen Datumswerte

Teile aus einem qrcode string auslesen

VBA Auslesen von Strings und erstellen neuer Zeilen in einer Tabelle

aktuelles Alter aus Geburtsdatum auslesen und runde Geburtstage markieren

ListFilenames_FSO_Star

Verwenden von Zellwerten als benutzerdefinierte Excel-Dateieigenschaft zur Unterstützung der ...

Dateieigenschaften lesen

MP3 Dateieigenschaften (TAGs) auslesen