Verzeichnis / Ordner Erstellungsdatum

[doctor-x]

Danke!
Das funktioniert einwandfrei

Hier noch der Code für alle die noch auf dieses problem stoßen...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  aHandle: THandle;
  LastAccessTime, CreationTime, LastWriteTime: TFileTime;
begin
  aHandle := CreateFile('c:\abc', FILE_READ_ATTRIBUTES,
                        FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING,
                        FILE_FLAG_BACKUP_SEMANTICS, 0);
  GetFileTime(aHandle, @CreationTime, @LastAccessTime, @LastWriteTime);
  DoFileWork(FO_COPY, 'c:\abc', 'd:\abc', FOF_SILENT or FOF_NOERRORUI);
  aHandle := CreateFile('d:\abc', FILE_WRITE_ATTRIBUTES,
                        FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING,
                        FILE_FLAG_BACKUP_SEMANTICS, 0);
  SetFileTime(aHandle, @CreationTime, @LastAccessTime, @LastWriteTime);
end;