XProfan

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#
/../../Function-References/XProfan/dispose/'>Dispose CTime#
END