Delphi DelphiNeroApi - Dateien übergeben

Thema durchsuchen

Ansicht

Themen-Optionen

DelphiNeroApi - Dateien übergeben

Ein Thema von Gina · begonnen am 13. Mär 2005 · letzter Beitrag vom 7. Okt 2006

Vorheriger Beitrag

Nächster Beitrag

jbg

Registriert seit: 12. Jun 2002
3.485 Beiträge

Delphi 10.1 Berlin Professional

#14

Re: DelphiNeroApi - Dateien übergeben

19. Mär 2005, 22:22

Zitat von Gina:

markieren

Delphi-Quellcode:

			  If DirectoryExists(FileName) then

    FileTime := now

  else

    FileTime := FileDateToDateTime(FileAge(FileName));

Der FileAge Code schließt Verzeichnis explizit aus.

zusammenfalten · markieren

Delphi-Quellcode:

			function DirectoryAge(const DirectoryName: string): Integer;

var

  sr: TSearchRec;

begin

  Result := -1;

  if FindFirst(DirectoryName, faAnyFile or faDirectory, sr) = 0 then

  begin

    Result := sr.Time;

    FindClose(sr);

  end;

end;