Dateidatum vergleichen

[RaSoWa1]

Hallo,

ich schreibe gerade ein BackUp-Programm. Dabei vergleiche ich das Dateidatum der Dateien auf der Festplatte mit dem Datum der Dateien auf der externen Sicherungsplatte. Bei Ungleichheit wird die entsprechende Datei gesichert.

Kann ich das mit FileAge ermittelte Datum der Dateien direkt vergleichen oder sollte ich es besser in ein TDateTime-Wert konvertieren und dann vergleichen?

Gruß Klaus

[mkinzler]

Die neuere Version der Funktion hat ja einen out Paramter vom Typ TDateTime

[RaSoWa1]

Bei meinem alten D6 ist leider nur die alte Version dabei.

[mkinzler]

Diese ist in der Zwischenzeit als veraltet markiert

Zitat:

Zitat von Delphi-Hilfe

Delphi-Quellcode:

function FileAge(const FileName: string): Integer; overload; deprecated;
function FileAge(const FileName: string; out FileDateTime: TDateTime): Boolean; overload;

[RaSoWa1]

Auszug aus meiner unit SysUtils;

Delphi-Quellcode:

unit SysUtils;

{$H+}
{$WARN SYMBOL_PLATFORM OFF}

interface

......

{ FileAge returns the date-and-time stamp of the specified file. The return
  value can be converted to a TDateTime value using the FileDateToDateTime
  function. The return value is -1 if the file does not exist. }

function FileAge(const FileName: string): Integer;

{ FileExists returns a boolean value that indicates whether the specified
  file exists. }

function FileExists(const FileName: string): Boolean;

eine neue Version ist dort nicht zu entdecken.

Wo kann man die herbekommen?

Ich muß mich jetzt mal für eine Stunde abmelden. Also läßt euch Zeit.

Gruß
Klaus

[himitsu]

dann kannst du den Integer auch direkt vergleichen

für eine bessere/genauere Auflösung Windows.GetFileTime
oder gleich das Datum aus FindFirst/FindNext nehmen :zwinker:

[mkinzler]

Zitat:

Wo kann man die herbekommen?

Mit einer neueren Delphi-Version.