File Eigenschaften / Änderungsdatum mit Sekunden

Forumthread: File Eigenschaften / Änderungsdatum mit Sekunden

07.12.2025 19:13:45

Ich möchte mit Excel-VBA eine Liste mit Änderungsdatum von Dateien in einem bestimmten Verzeichnis erstellen um die später sortieren und umbenennen zu können

mit objFolder.GetDetailsOf(varName, 3) bekomme ich auch das Änderungsdatum aber "nur" im Format:
02.05.2018 21:31
also ohne Sekunden
gibt es eine Möglichkeit mit EXCEL-VBA auch die Informationen zu welcher Sekunde die Datei geändert wurde auszulesen?

Danke
K.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Nimm doch einfach...

07.12.2025 19:39:50

Case
AW: File Eigenschaften / Änderungsdatum mit Sekunden

08.12.2025 14:00:34

Yal

Nimm doch einfach...

07.12.2025 19:39:50

Case

Moin, :-)

... FileDateTime: ;-)

Im Direktfenster: ;-)
?FileDateTime("C:\Temp\7.jpg")

Ergibt dann (für meine Datei): ;-)
01.11.2025 12:36:09

https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/filedatetime-function

Servus
Case

AW: File Eigenschaften / Änderungsdatum mit Sekunden

08.12.2025 14:00:34

Yal

Hallo K,

um diese Funktion "GetDetailsOf" zu verwenden, bindest Du eine Bibliothek.
Dann lieber eine genauere Funktion/Bibliothek verwenden:
In VBA-Editor, unter Menü "Extras", "Verweise...", setze ein Haken bei "Microsoft Scripting Runtime". Schau jetzt im Objektkatalog (F2, oder Menü "Ansicht", "Objekt-Katalog"), Du hast die Bibliothek "Scripting" (in der Auflistung wo "" steht) und darin verchiedene Objekt, Methoden, Eigenschaft. Diese stehen Dir jetzt auch über Intellisense zu Verfügung: Filesys tippen und Strg+Leertaste drücken.

Lange Rede: teste folgenden Code:

Sub Test()

'Unter Anbindung der Bibliothek "Microsoft Scripting Runtime" (Extras, Verweise..., Haken bei dieser Bibliothek)

Dim FSO As New FileSystemObject

Dim F As File

Const cPfad = "c:\temp\H_forum\unbenannt.png"



    Set F = FSO.GetFile(cPfad)

    Debug.Print F.DateLastModified

End Sub

Ohne die Bibliothek im Voraus anzubinden (aka "early binding"), geht es auch so:

Sub Test2()



    With CreateObject("Scripting.FileSystemObject") 'sogenannten "late binding", aber keine Objekt-Katalog, noch Intellisense

        Debug.Print .GetFile("c:\temp\H_forum\unbenannt.png").DateLastModified

    End With

End Sub

Erfahrene Programmierer bevorzugen early binding.

VG
Yal

File Eigenschaften / Änderungsdatum mit Sekunden

Forumthread: File Eigenschaften / Änderungsdatum mit Sekunden

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread