Einzelnen Beitrag anzeigen

Funky-Sepp

Registriert seit: 14. Okt 2003
Ort: Freudenricht/Velburg
56 Beiträge
 
#3

Re: "Geändert am" ermitteln?

  Alt 11. Okt 2007, 16:34
Hi,

hatte das Problem auch mal, hoffe dies hilft dir weiter.

Delphi-Quellcode:

function GetFolderDateTime( aFolder : String ) : TDateTime;
var
  SR: TSearchRec;
begin
  if FindFirst( ExcludeTrailingBackslash( aFolder ), faAnyFile, SR) = 0 then
    Result := FileDateToDateTime(SR.Time)
  else Result := 0;
  FindClose(SR);
end;
sollte auch für Dateien funktionieren.

Ist zwar wahrscheinlich nicht die beste lösung, aber es ist eine.
Wolfgang
  Mit Zitat antworten Zitat