Dateieigenschaften auslesen
Hallo zusammen
Habe ein Problem beim auslesen von Dateieigenschaften.
Betriebssystem: Windows 7 Prof.
Office 2010 Prof.
Folgende Situation:
In einem Ordner befinden sich eine Menge an Excel Dateien (>500). Alle diese Dateien wurden aus einer Vorlage mit "speichern unter" erstellt.
Ich möchte von all diesen Dateien das Erstellungsdatum auslesen und in eine Datei speichern.
Ich lese die Infos mit BuiltinDocumentProperties(11) aus. Ich bekomme zwar ein Datum zurück, jedoch entspricht dieses Datum dem Wert "Inhalt erstell" wenn ich im Explorer die Dateieigenschaften ansehe und nicht dem Erstellungsdatum der Datei. Das Datum Inhalt erstellt entspricht dem Erstellungsdatum der Vorlage.
Brauche ich eine zusätzliche .dll oder gibt es noch eine andere Möglichkeit.
Danke für Eure Hilfe
MfG
Thomas
Habe ein Problem beim auslesen von Dateieigenschaften.
Betriebssystem: Windows 7 Prof.
Office 2010 Prof.
Folgende Situation:
In einem Ordner befinden sich eine Menge an Excel Dateien (>500). Alle diese Dateien wurden aus einer Vorlage mit "speichern unter" erstellt.
Ich möchte von all diesen Dateien das Erstellungsdatum auslesen und in eine Datei speichern.
Ich lese die Infos mit BuiltinDocumentProperties(11) aus. Ich bekomme zwar ein Datum zurück, jedoch entspricht dieses Datum dem Wert "Inhalt erstell" wenn ich im Explorer die Dateieigenschaften ansehe und nicht dem Erstellungsdatum der Datei. Das Datum Inhalt erstellt entspricht dem Erstellungsdatum der Vorlage.
Brauche ich eine zusätzliche .dll oder gibt es noch eine andere Möglichkeit.
Danke für Eure Hilfe
MfG
Thomas
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 176523
Url: https://administrator.de/forum/dateieigenschaften-auslesen-176523.html
Ausgedruckt am: 23.12.2024 um 05:12 Uhr
2 Kommentare
Neuester Kommentar
Hallo Thomas!
Das Erstellungsdatum kannst Du in VBA z.B. so auslesen:
in VBS in etwa so:
Gruß Dieter
Das Erstellungsdatum kannst Du in VBA z.B. so auslesen:
Option Explicit
Private Const FolderPath = "E:\Test\"
Sub test()
Dim Fso As Object, File As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each File In Fso.GetFolder(FolderPath).Files
If LCase(Fso.GetExtensionName(File.Name)) = "xls" Then
MsgBox File.Name & " " & File.DateCreated
End If
Next
End Sub
Option Explicit
Const FolderPath = "E:\Test\"
Dim Fso, File
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each File In Fso.GetFolder(FolderPath).Files
If LCase(Fso.GetExtensionName(File.Name)) = "xls" Then
MsgBox File.Name & " " & File.DateCreated
End If
Next
Gruß Dieter