Bonjour à tous,

Quelqu'un aurait-il une idée de la fonction ou méthode à utiliser pour modifier non pas la date de modification d'un fichier mais la date de création d'un fichier.

Voici un exemple de code pour la date de modification
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Forigine,
  Fcible: integer;
  aDate: TDateTime;
  Success: Boolean;
  FDate: integer;
 
begin
  Success:= False;
  Forigine:= FileOpen(Edit1.Text, fmOpenRead);
  if Forigine > 0 then
  begin
    FDate:= FileGetDate(Forigine);
    aDate:= FileDateToDateTime(FDate);
  end;
  FileClose(Forigine);
  Fcible:= FileOpen(Edit2.Text, fmOpenReadWrite or fmShareDenyWrite);
 
//  FDate:= DateTimeToFileDate(aDate);
 
  if Fcible > 0 then
    Success:= FileSetDate(Fcible, FDate) <> 0;
 
  if Success then
    Label1.Caption:= Edit2.Text;
 
  FileClose(Fcible);
end;