Data utworzenia folderu

Czy wiecie jaka funckja moge odczytac date utworzenia folderu ?? nigdzie tego nie moge znalezc

puentu napisał(a)

Czy wiecie jaka funckja moge odczytac date utworzenia folderu ?? nigdzie tego nie moge znalezc

ciekawe - trzeci link od góry z googla

nic tam nie znalazlem :-|

puentu napisał(a)

nic tam nie znalazlem :-|

ślepy :> http://lasica.hostdmk.net/delphi.html#C24

Odczytanie daty utworzenia, modyfikacji i ostatniego dostępu do pliku zamiast nazwy pliku wystarczy podać nazwę katalogu

a kliknołeś na link podany przez kolegę?

procedure TForm1.OdczytajDaty;
var sr: TSearchRec; u,m,d: TDateTime; localFileTime: TFileTime; systemTime: TSystemTime;
begin
if FindFirst('C:\sciezka\plik.roz',faAnyFile,sr)=0
 then
  begin
  FileTimeToLocalFileTime(sr.FindData.ftCreationTime,localFileTime);
  FileTimeToSystemTime(localFileTime,systemTime);
  u:=SystemTimeToDateTime(systemTime);
  FileTimeToLocalFileTime(sr.FindData.ftLastWriteTime,localFileTime);
  FileTimeToSystemTime(localFileTime,systemTime);
  m:=SystemTimeToDateTime(systemTime);
  FileTimeToLocalFileTime(sr.FindData.ftLastAccessTime,localFileTime);
  FileTimeToSystemTime(localFileTime,systemTime);
  d:=SystemTimeToDateTime(systemTime);
  end;
FindClose(sr);
ShowMessage('Data utworzenia pliku to: '+DateTimeToStr(u));
ShowMessage('Data ostatniej modyfikacji pliku to: '+DateTimeToStr(m));
ShowMessage('Data ostatniego dostępu do pliku to: '+DateTimeToStr(d));
end;

wystarczy zamienić toC:\sciezka\plik.roz na scierzkę do katalogu. Trochę samodzielności