Einzelnen Beitrag anzeigen

jbg

Registriert seit: 12. Jun 2002
3.483 Beiträge
 
Delphi 10.1 Berlin Professional
 
#26

Re: DelphiNeroApi - Dateien übergeben

  Alt 19. Mär 2005, 23:22
Zitat von Gina:
Delphi-Quellcode:
  If DirectoryExists(FileName) then
    FileTime := now
  else
    FileTime := FileDateToDateTime(FileAge(FileName));
Der FileAge Code schließt Verzeichnis explizit aus.
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;
Ist bereits im CVS Code drinnen.
  Mit Zitat antworten Zitat