Changer la date de modification d'un fichier

**sylviev** · 16/12/2005, 15h46

Je voudrai modifier la date de modification d’un fichier pour y mettre sa date de création,
Je n’arrive pas à trouver la fonction xxxxxxxx me permettant de convertir un type FILETIME
Peut être que je m’y prends mal, mais je ne trouve pas d’autre solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
var
  TS:TSearchRec;
  TDateModif:TDateTime;
begin
  If FindFirst('TOTO',faAnyFile,TS)=0
  Then 
  Begin
      TDateModif:=FileDateToDateTime(TS.Time);
      FileSetDate(hFichier,DateTimeToFileDate(xxxxxxx(TS.FindData.ftCreationTime)));
End;
End;