DateTime of a Directory

[nahpets]

Delphi-Quellcode:

function mz_GetDirectoryDateTime(myDir : string): s_48; // Das wird wohl ein String sein(?)
var
  sr : TSearchRec;
begin
  if SysUtils.FindFirst(myDir,faDirectory,sr) = 0 Then begin
    Result := DateTimeToStr(FileDateToDateTime(sr.Time));
  end;
  SysUtils.FindClose(sr);
end;

Nur hingedaddelt, nicht getestet.