In VBA (Visual Basic for Applications) wird die Funktion `FileDateTime` verwendet, um das Datum und die Uhrzeit der letzten Änderung einer Datei zu ermitteln. Hier ist, wie du diese Funktion verwenden kannst:
Syntax
FileDateTime(Pathname As String) As Date
- Pathname: Der vollständige Pfad und Name der Datei, deren Datum und Uhrzeit der letzten Änderung du ermitteln möchtest. Dieser Wert muss eine Zeichenfolge (`String`) sein.
Rückgabewert
Die Funktion gibt ein Datum (`Date`) zurück, das sowohl das Datum als auch die Uhrzeit der letzten Änderung der angegebenen Datei enthält.
Beispiel
Hier ist ein einfaches Beispiel, das zeigt, wie du `FileDateTime` verwenden kannst:
Sub BeispielFileDateTime()
Dim DateiPfad As String
Dim Änderungsdatum As Date
' Pfad zur Datei festlegen
DateiPfad = "C:BeispielOrdnerBeispielDatei.txt"
' Abrufen des Datums und der Uhrzeit der letzten Änderung der Datei
Änderungsdatum = FileDateTime(DateiPfad)
' Ausgabe des Ergebnisses in einer Nachricht
MsgBox "Die Datei wurde zuletzt geändert am: " & Änderungsdatum
End Sub
Wichtige Hinweise
- Pfad und Datei existieren: Stelle sicher, dass der angegebene Pfad korrekt ist und die Datei existiert, sonst löst die Funktion einen Fehler aus.
- Fehlerbehandlung: Es ist oft sinnvoll, eine Fehlerbehandlung zu implementieren, um mit möglichen Fehlermeldungen wie ‘Datei nicht gefunden’ umzugehen.
Fehlerbehandlung Beispiel
Hier ist ein erweitertes Beispiel mit Fehlerbehandlung:
Sub BeispielFileDateTimeMitFehlerbehandlung()
Dim DateiPfad As String
Dim Änderungsdatum As Date
' Pfad zur Datei festlegen
DateiPfad = "C:BeispielOrdnerBeispielDatei.txt"
On Error GoTo Fehlerbehandlung ' Fehlerbehandlung aktivieren
' Abrufen des Datums und der Uhrzeit der letzten Änderung der Datei
Änderungsdatum = FileDateTime(DateiPfad)
' Ausgabe des Ergebnisses in einer Nachricht
MsgBox "Die Datei wurde zuletzt geändert am: " & Änderungsdatum
Exit Sub
Fehlerbehandlung:
MsgBox "Fehler: Die angegebene Datei wurde nicht gefunden oder der Pfad ist ungültig.", vbExclamation
End Sub
Mit dieser Anleitung kannst du die `FileDateTime` Funktion in deinen VBA-Projekten effektiv nutzen, um die Datums- und Zeitinformationen von Dateien abzurufen.
Unlock Your Potential
Excel
Access
Power BI
