Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei: Datum einer Datei lesen und ändern
Beschreibung des Programmes FileTime.
Das Programm liest und ändert das Datum einer Datei (Erstellungsdatum und Datum der
letzten Änderung).
Version 1.2 9.4.2002. Das Programm kann frei benutzt werden, für
Schäden kann keine Haftung übernommen werden.
Autor: Gerhard Putschalka
email: g.putschalka@web.de
homepage: http://members.telering.at/g.putschalka/index.html
Funktionen definieren
DEF CloseHandle(1) !KERNEL32,CloseHandle
DEF OpenFile(3) !KERNEL32,OpenFile
DEF GetFileTime(4) !KERNEL32,GetFileTime
DEF SetFileTime(4) !KERNEL32,SetFileTime
DEF GetLastError(0) !KERNEL32,GetLastError
Def ToSystemTime(2) !KERNEL32,FileTimeToSystemTime
Def FromSystemTime(2) !KERNEL32,SystemTimeToFileTime
Def LocalTimeToFileTime(2) !KERNEL32,LocalFileTimeToFileTime
Def FileTimeToLocalTime(2) !KERNEL32,FileTimeToLocalFileTime
Declare FilHndl&,Buff1#,Buff3#,Buff2#,ETime#,FTime#,LTime#,CTime#,Ret&,Datei$
Declare Jahr&,Monat&,WoTag&,Tag&,Stund&,Minut&,Seknd&,Fehler%,WoTag$
Drucken des Datums und der Zeit
Proc Umsetzen
Parameters W$
Let Jahr& = @Word(Buff3#,0)
Let Monat& = @Word(Buff3#,2) 1 - 12
Let WoTag& = @Word(Buff3#,4) 0 = Sonntag, ... 7= Samstag
Let Tag& = @Word(Buff3#,6) 1 - 31
Let Stund& = @Word(Buff3#,8)
Let Minut& = @Word(Buff3#,10)
Let Seknd& = @Word(Buff3#,12)
drucken der Werte. In W$ wird ein Text übergeben.
Print W$,@Substr$(WoTag$,(WoTag& + 1),;),
@Str$(Tag&);.;@Str$(Monat&);.;@Str$(Jahr&); um ;
@Str$(Stund&);:;@Format$(00,Minut&);:;@Format$(00,Seknd&)
Return
EndProc
======
Main
======
CLS
Dim Buff1#,128
Dim Buff2#,255
Dim Buff3#,20
Dim ETime#,4 Erstellungsdatum
Dim LTime#,4 Datum letzter Zugriff
Dim CTime#,4 Datum der letzten Änderung
Dim FTime#,4 Arbeitsbereich
initialisiere die Wochentagtabelle
Let WoTag$ = Sonntag;Montag;Dienstag;Mittwoch;Donnerstag;Freitag;Samstag
zu bearbeitende Datei auswählen
Let Datei$ = @LoadFile$(Datei auswählen,*.*)
Case @equ$(Datei$,) : End
String Buff1#,0 = Datei$
ACHTUNG: OpenFile() kann nur Pfade bis 128 Zeichen nutzen.
Öffnen der Datei. Der Dateihandle wird für GetFileTime gebraucht
FilHndl& = OpenFile(Buff1#,Buff2#,0)
Let Ret& = GetFileTime(FilHndl&,ETime#,LTime#,CTime#)
CloseHandle(FilHndl&)
Rückgabe bei GetFileTime() und SetFileTime: 1 = OK, 0 = Fehler
IfNot Ret&
Let Ret& = @GetLastError()
@MessageBox(@Str$(Ret&),Fehler,32)
Let Fehler% = 1
Else
die gelesenen Daten sind im UTC Format und differieren zur Ortszeit. Daher muß
die Filetime in die Ortszeit (LocalTime) umgesetzt werden.
FileTimeToLocalTime(ETime#,FTime#) Erstellungs- UTC Time in Ortszeit konvertieren
ToSystemTime(FTime#,Buff3#) .. und in verarbeitbare Form konvertieren
Umsetzen erstellt am:
FileTimeToLocalTime(CTime#,FTime#) Änderungs- UTC Time in Ortszeit konvertieren
ToSystemTime(FTime#,Buff3#) .. und in verarbeitbare Form konvertieren
Umsetzen geändert am:
EndIf
Hier wird, nur als Beispiel, angeführt wie ein Datum geändert werden kann.
das zu ändernde Datum und die Uhrzeit müssen sich in Buff3# befinden, wie in der
Prozedur Umsetzen beschrieben ist. Der Wochentag wird dabei ignoriert.
IfNot Fehler% ... wenn es bisher funktionierte
soll also z.B. das Datum letzte Änderung geändert werden:
z.B. Tag auf 17 und Monat auf 5 im Änderungsdatum und Uhrzeit auf 7:23 ändern:
Word Buff3#,6 = 17
Word Buff3#,2 = 5
Word Buff3#,8 = 7
Word Buff3#,10 = 23
Let Ret& = FromSystemTime(Buff3#,FTime#) Änderungsdatum im Buff3# speichern
LocalTimeToFileTime(FTime#,CTime#) CTime# ist letzte Änderung, ETime# wäre Erstellung
If (Ret& = 0)
Let Fehler% = 1 bei Null war Fehler (fehlerhaftes Datum ...)
@MessageBox(fehlerhaftes Datum,,32)
EndIf
EndIf
IfNot Fehler% wenn noch immer kein Fehler war erfolgt jetzt update der Datei.
erneut die Datei öffnen (geht sonst nicht) und FileTime in Datei ändern.
ACHTUNG: es werden dabei alle 3 Daten (Erstellung, Änderung und letzter Zugriff für
die Datei geändert !!! (also CTime#, ETime# und LTime# müssen korrekt sein !!!)
FilHndl& = OpenFile(Buff1#,Buff2#,1)
Let Ret& = SetFileTime(FilHndl&,ETime#,LTime#,CTime#)
IfNot Ret&
Let Ret& = @GetLastError()
@MessageBox(@Str$(Ret&),Fehler bei Update. Fehlernummer:,32)
Else
@MessageBox(Programm korrekt beendet,,32)
EndIf
EndIf
CloseHandle(FilHndl&)
Dispose Buff2#
Dispose Buff1#
Dispose Buff3#
Dispose ETime#
Dispose LTime#
Dispose CTime#
END