Inhaltsverzeichnis
FileDateTime Beschreibung
Gibt das Datum und die Uhrzeit zurück, wann eine Datei erstellt oder zuletzt geändert wurde.
Einfaches FileDateTime-Beispiel
Angenommen, eine Datei „D:\test.txt“ wurde zuletzt am 21.10.2019 9:41:30 Uhr geändert.
1 | MsgBox FileDateTime("D:\test.txt") |
Dies wird am 21.10.2019 9:41:30 Uhr zurückkehren.
FileDateTime-Syntax
Im VBA-Editor können Sie „FileDateTime(“ eingeben, um die Syntax für die FileDateTime-Funktion anzuzeigen:
Die FileDateTime-Funktion enthält ein Argument:
Pfadname: Ein Zeichenfolgenausdruck, der eine Datei/einen Ordner/ein Laufwerk darstellt.
Beispiele für Excel VBA FileDateTime-Funktion
Um die letzte Änderungszeit des Ordners und der Dateien auf Laufwerk C aufzulisten, können Sie den folgenden Code verwenden.
123456789101112131415161718192021222324 | Unterverzeichnis_Beispiel()Dim fileName As StringDim fullName As StringDim rng As RangeDim i As IntegerSetze rng = Range("A1")fileName = Dir("C:\", vbDirectory)ich = 1TunfullName = "C:\" & Dateinamerng.Offset(i, 0) = Dateinamerng.Offset(i, 1) = FileDateTime(fullName)rng.Offset(i, 2) = FileLen(fullName)rng.Offset(i, 3) = GetAttr(fullName)fileName = DirIf fileName = "" Then Exit Doich = ich + 1SchleifeEnd Sub |
Das Ergebnis wird mit dem folgenden ähnlich sein.