Registriert seit: 12. Jun 2002
3.483 Beiträge
Delphi 10.1 Berlin Professional
|
Re: DelphiNeroApi - Dateien übergeben
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.
|