FileSetDate()
FileSetDate() – Datei Datum setzen
FileSetDate() setzt die DOS Datums- und Zeitinformationen der mit aFileHandle angegebenen Datei auf den Wert von aFileAge. Mit der Funktion DateTimeToFileDate() kann ein TDateTime-Wert in die entsprechenden DOS-Informationen konvertiert werden. Bei Erfolg gibt FileSetDate() den Wert Null, ansonsten einen Windows-Fehlercode zurück.
Parameter | Beschreibung |
---|---|
aFileHandle:N | FileHandle |
aFileAge:N | Numerischer Wert (wie z.B. von der Funktion FileAge() zurückgeliefert) |
Rückgabewert
Numerisch - Neues numerisches Dateidatum
Beispiel
| nHandle, dDatum, nDatum, nError |
nHandle := FileOpen('C:\TEMP\U_Zahlung.Pas', _OR(fo_ReadWrite, fo_Shared)),
if nHandle > -1 then
startseq,
dDatum:= FileDateToDateTime(FileGetDate(nHandle)),
WriteLn(dDatum),
nDatum:= DateTimeToFileDate(Date() + TimeEx()),
WriteLn(nDatum),
nError:= FileSetDate(nHandle, nDatum),
if nError <> 0 then
WriteLn('Fehlercode ' + Str(nError))
else
WriteLn('Neues Datei-Datum ' + DateTimeToStr(FileDateToDateTime(nDatum)))
endif,
always,
FileClose(nHandle)
stopseq,
endif,