Erstellungsdatum von einem Verzeichniss

[Mondengel]

Hallo alle zusammen

Ich hab da eine Frage.

Ist es Möglich das Erstellungsdatum eines Verzeichnisses zu ermitteln. Hab schon im Internet wie doof gesucht und nichts ansprechendes gefunden. Bin schon ganz wirr im Kopf

Bitte helft mirihr Programmierprofis

[toms]

Hallo

Hast du auch so gesucht? delphi directory creation date

[himitsu]

schau mal, was FindFirst dir bietet ... da ist das mit drin

direkt per WinAPI GetFileTime oder FindFirstFile

[Mondengel]

Hey danke Ihr Programmierprofis

Eure vorschläge haben prima geholfen.

Und hier lege ich noch den Code ab für alle die das gleiche Problem haben:
Unit DateUtils;

Code:

function DirectoryAge(path : String) : TDateTime;
var
  sr : TSearchRec;
  creationTimeSystem: TSystemTime;
begin
  if sysUtils.FindFirst(path, faDirectory, sr) = 0 then
  begin
    try
      FileTimeToSystemTime(sr.FindData.ftCreationTime, creationTimeSystem) ;
      with creationTimeSystem do
        Result := EncodeDateTime(wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliseconds) ;
    finally
     FindClose(sr) ;
    end;
  end
  else
  begin
    Result := -1;
  end;
end;