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

Please also mark the comments that contributed to the solution of the article

Content-Key: 176523

Url: https://administrator.de/contentid/176523

Printed on: April 19, 2024 at 10:04 o'clock

2 Comments

Latest comment

Hallo Thomas!

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

in VBS in etwa so:

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