FileAge(Ordner)?

[maximi]

Hallo!

Weiß jemand wie ich über delphi das änderungsdatum eines ordners bekomme?

Danke!

[Christian Seehase]

Moin Maximi,

mit FileAge wird das nicht gehen.
Such' hier mal nach CreateFile FILE_FLAG_BACKUP_SEMANTICS. Mit Hilfe dieser Funktion und diesen Flag kannst Du ein Handle auf ein Verzeichnis bekommen. Dann bräuchtest Du noch GetFileTime, um die Zeiten auszulesen.

[Duffy]

Hallo maximi,
mit der folgenden Funktion solltest Du das Änderungsdatum bekommen.

Delphi-Quellcode:

function GetFileTime(const FileName: TFileName): Integer;
var
  SR: TSearchRec;
begin
  Result := -1;
  if FindFirst(FileName, faAnyFile, SR) = 0 then
  begin
    try
      Result := SR.Time;
    finally
      SysUtils.FindClose(SR);
    end;
  end;
end;

und als ein Beispiel der Aufruf:

Delphi-Quellcode:

ShowMessage(DateTimeToStr(FileDateToDateTime(GetFileTime('D:\Dein Verzeichnis'))));

bye
Claus

[maximi]

Danke euch!