FileGetDate()

FileGetDate() – Datei-Datum ermitteln

Die Funktion gibt die DOS Datums- und Zeitinformationen einer bestimmten Datei zurück.
Mit FileGetDate() kann der Zeitstempel der Datei mit dem angegebenen Handle ermittelt werden. Bei einem ungültigen Handle wird der Wert -1 zurückgegeben. Der Rückgabewert kann anschließend mit der Funktion FileDateToDateTime() in einen Wert des Typs TDateTime konvertiert werden.

Parameter	Beschreibung
aFileHandle:N	FileHandle

Rückgabewert

Numerisch - 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