Dateiattribute und -zeitstempel kopieren

[necromundo]

Hallo zusammen!

Ich bin grade dabei, eine Funktion zu schreiben, die die Attribute und Zeitstempel einer Datei auf eine andere zuvor kopierte Datei überträgt, so dass ich danach zwei identische Dateien habe, inklusiver aller Zeitstempel.
Allerdings gibt es Probleme damit, nach dem Kopieren ist nur das letzte Änderungsdatum und die Attribute gleich, der Rest funktioniert irgendwie nicht! :-(
Hier ist der Code:

Delphi-Quellcode:

function TForm1.transferdateiinfos(source,destination: widestring): boolean;
var
  hFind_s, hFind_d: THandle;
  FindFileData_s, FindFileData_d: WIN32_FIND_DATAW;
begin
  result := false;
  if source[length(source)] = '\' then setlength(source,length(source)-1);
  if destination[length(destination)] = '\' then setlength(destination,length(destination)-1);
  hFind_s := FindFirstFileW(PWideChar(source),FindFileData_s);
  hFind_d := FindFirstFileW(PWideChar(destination),FindFileData_d);
  if (hFind_s <> INVALID_HANDLE_VALUE) and (hFind_d <> INVALID_HANDLE_VALUE) then begin
    try
      findfiledata_d.ftCreationTime := findfiledata_s.ftCreationTime;
      findfiledata_d.ftLastWriteTime := findfiledata_s.ftLastWriteTime;
      findfiledata_d.ftLastAccessTime := findfiledata_s.ftLastAccessTime;
      findfiledata_d.dwFileAttributes := findfiledata_s.dwFileAttributes;
    finally
     Windows.FindClose(hFind_s);
     Windows.FindClose(hFind_d);
    end;
  end;
end;

Hat jemand eine Idee? Oder schonmal eine ähnliche Funktion geschrieben? ;-)
Ganz wichtig ist, dass Widestring-Dateinamen benutzt werden können!

VG, Benny

[DeddyH]

Ich denke, SetFileTime ist das Richtige dafür.

[necromundo]

ich habe jetzt wie folgt geändert, aber trotzdem stimmen die zeitstempel nicht!

NewCreationTime, NewAccessTime, NewWriteTime: TFileTime;

Delphi-Quellcode:

NewCreationTime := findfiledata_s.ftCreationTime;
NewWriteTime := findfiledata_s.ftLastWriteTime;
NewAccessTime := findfiledata_s.ftLastAccessTime;
result := SetFileTime(hFind_d, @NewCreationTime, @NewAccessTime, @NewWriteTime);

[DeddyH]

Schau Dir mal diesen Thread an, ich hoffe, das hilft Dir weiter: http://www.delphipraxis.net/internal...t.php?t=121857

[necromundo]

ok, ich hab ihn mir angesehen, da gibt es also auch sowas wie getfiletime, äquivalent zu setfiletime, ich habs jetzt so umgeschrieben, aber immernoch der gleiche effekt!

Delphi-Quellcode:

GetFileTime(hFind_s, @NewCreationTime, @NewAccessTime, @NewWriteTime);
SetFileTime(hFind_d, @NewCreationTime, @NewAccessTime, @NewWriteTime);

in dem thread wird aber auch immer das "@" weggelassen, dann bekomme ich aber die compilermeldung, dass _FILETIME und PFileTime inkompatible typen sind!

[DeddyH]

Werden die Funktionen denn überhaupt aufgerufen (Breakpoint)?

[necromundo]

beim step by step kann ich in die funktionen irgendwie nicht reinspringen, und die werte der times ändern sich auch nicht! woran kann das liegen?

die handles bekommen aber einen gültigen wert zugewiesen, also kann da ja nicht der fehler liegen! :-/

[p80286]

Hallo zusammen,

schüchterner Einwurf:
könnte es sein, das LastAccessTime ein "Eigenleben" führt? Jedes mal wenn die Dateizeit gesetzt wird, wird auch LastAccessTime vom System neu gesetzt?

Gruß
K-H

[necromundo]

ja, das hatte ich auch schon überlegt! also dass lastaccesstime jedesmal beim schliessen des handles neu gesetzt wird! aber dann müsste es zumindest mit creationtime klappen, tuts aber auch nicht! :gruebel:

[necromundo]

ich sehe grade, dass die funktionen "getfiletime" und "setfiletime" false zurückliefern! :gruebel: aber warum??