Skip to main content
Skip table of contents

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

CODE
| 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,

Weitere Verknüpfungen


JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.