(Win32) Datum des letzten Dateizugriffs ermitteln

Für allgemeine Fragen zur Programmierung mit PureBasic.
real
Beiträge: 468
Registriert: 05.10.2004 14:43

(Win32) Datum des letzten Dateizugriffs ermitteln

Beitrag von real »

Hi,

wie kann ich ermitteln, wann auf eine Datei xyz zuletzt zugegriffen wurde?

Gruß
René
Benutzeravatar
Andre
PureBasic Team
Beiträge: 1765
Registriert: 11.09.2004 16:35
Computerausstattung: MacBook Core2Duo mit MacOS 10.6.8
Lenovo Y50 i7 mit Windows 10
Wohnort: Saxony / Deutscheinsiedel
Kontaktdaten:

Beitrag von Andre »

Wenn Du den Schreibzugrifft meinst:

Code: Alles auswählen

hFile.l = ReadFile(0,file$)     ; change to your own path/file
GetFileTime_(hFile, @Create.FILETIME, @Access.FILETIME, @Write.FILETIME) 
FileTimeToSystemTime_(@Create, @SysTime.SYSTEMTIME)   ; get creation date/time
ActDate.l = Date(SysTime\wYear,SysTime\wMonth,SysTime\wDay,0,0,0)

FileTimeToSystemTime_(@Write, @SysTime.SYSTEMTIME)   ; get last write date/time
UpdDate.l = Date(SysTime\wYear,SysTime\wMonth,SysTime\wDay,0,0,0)
Der Code enthält beides, also
- Erstellungsdatum der Datei: siehe FileTimeToSystemTime_(@Create,....)
- Änderungsdatum der Datei: siehe FileTimeToSystemTime_(@Write,....)
Bye,
...André
(PureBasicTeam::Docs - PureArea.net | Bestellen:: PureBasic | PureVisionXP)
real
Beiträge: 468
Registriert: 05.10.2004 14:43

Beitrag von real »

Danke für die Antwort! 8)

Gibt es auch eine Möglichkeit, ohne komplizierte Berechnungen z.B. herauszufinden, auf welche Datei seit 20 Tagen nicht mehr zugegriffen wurde?
Benutzeravatar
NicTheQuick
Ein Admin
Beiträge: 8820
Registriert: 29.08.2004 20:20
Computerausstattung: Ryzen 7 5800X, 64 GB DDR4-3200
Ubuntu 24.04.2 LTS
GeForce RTX 3080 Ti
Wohnort: Saarbrücken

Beitrag von NicTheQuick »

Du müsstest dazu das heutige Datum und Zeit mit der [c]Date()[/c]-Funktion nehmen, 20 Tage davon abziehen (siehe Hilfe) und dann alle zu überprüfenden Dateien scannen und checken, ob ihr Zugriffsdatum "kleiner" als dein zuvor berechnetes Datum ist.

Verstehst du das so? :freak:
Antworten