ordner datum ermittel

[SaFu]

Mach ich da was falsch

Delphi-Quellcode:

function TForm7.GetDirDate(const Dir: string): TDateTime;
var Rec: TSearchRec;
    i: integer;
    a :String;
begin
  Result := 0;
  i := FindFirst(Dir,faDirectory,Rec);
  if i = 0 then
    Result := FileDateToDateTime(Rec.Time);
  SysUtils.FindClose(Rec);
  Showmessage(IntToStr(i));
end;

procedure TForm7.Button11Click(Sender: TObject);
begin
  GetDirDate((ExtractFilePath(ParamStr(0)))+'Vertretungspläne\');
end;