🚀 go-pugleaf

>I tried to use the function FILEAGE() to get the date of creation of a
>folder , .... it does'nt work.
>
>Is there a simple way to get it ?
>

Hi!
Here is a fragment of code that gets date & time of folder's
'�:\WORK' creation.

procedure TForm1.FormClick(Sender: TObject);
var
  nRes: integer;
  fSearch: TSearchRec;
  Year, Month, Day: Word;
  Hour, Min, Sec, MSec: Word;
begin
  nRes := FindFirst('C:\WORK', faDirectory, fSearch);
  if nRes=0 then begin
    FindClose(fSearch);
    DecodeDate(FileDateToDateTime(fSearch.Time), Year, Month, Day);
    DecodeTime(FileDateToDateTime(fSearch.Time), Hour, Min, Sec, MSec);
  end;
end;

                                               BR, Yuri Levashko