Hallo,
zum Beispiel so:
Delphi-Quellcode:
Function TForm1.GetDate(_sValue: String): TDateTime;
Var
SR: TSearchRec;
Begin
If FindFirst(_sValue, faAnyFile, SR) = 0 Then Begin
Result := FileDateToDateTime(SR.Time);
FindClose(SR);
End;
End;
Funktioniert auch mit Verzeichnisnamen.
Edit: Na da sind wir uns ja einig
