FileAge(Ordner)?

[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:
ShowMessage(DateTimeToStr(FileDateToDateTime(GetFileTime('D:\Dein Verzeichnis')))); bye
Claus