Forum: Sonstige Fragen zu Delphi
Delphi
by jbg,
21. Mär 2005
Nein. Kann es sein, dass der Pfad nicht existiert, oder "C:", "D:", ... ist?
Forum: Sonstige Fragen zu Delphi
Delphi
by jbg,
21. Mär 2005
Bei einem Ordner wird DirectoryAge() aufgerufen, und das liefert das Datum, wenn das Verzeichnis existiert, sonst -1. Da es FindFirst benutzt, darfst du natürlich keinen Backslash am Ende übergeben, da es dann kein gültiger Dateiname mehr ist.
Forum: Sonstige Fragen zu Delphi
Delphi
by jbg,
19. Mär 2005
Der FileAge Code schließt Verzeichnis explizit aus.
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);