Discussion :

[Jeankiki]

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;

[Andnotor]

Avec SetFileTime:

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
procedure ChangeCreateFileTime(const aFileName :TFileName; const aDate :TDateTime);
var
  hFile      :THandle;
  SystemTime :TSystemTime;
  FileTime   :TFileTime;
 
begin
  if FileExists(aFileName) then
  begin
    hFile := FileOpen(aFileName, fmOpenWrite or fmShareDenyWrite);
 
    if hFile <> -1 then
    try
      DateTimeToSystemTime(aDate, SystemTime);
      SystemTimeToFileTime(SystemTime, FileTime);
      LocalFileTimeToFileTime(FileTime, FileTime);
 
      if not SetFileTime(hFile, @FileTime, nil, nil) then
        RaiseLastOSError;
 
    finally
      FileClose(hFile);
    end
    else RaiseLastOSError;
  end
  else Raise Exception.Create(Format('Le fichier "%s" n''existe pas !', [aFileName]));
end;

[Jeankiki]

Merci Andnotor.
Entre temp, j'ai aussi trouvé aussi une solution (Juste avant de voir qu'il y avait une réponse)

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.Button4Click(Sender: TObject);
var
  Forigine,
  Fcible: integer;
  aDate: TDateTime;
  Success: Boolean;
  FDate: integer;
 
  ft : FILETIME;
begin
  Success:= False;
  Forigine:= FileOpen(Edit1.Text, fmOpenRead);
  // On récupére la date de création du fichier d'origine
  if Forigine > 0 then
    GetFileTime(Forigine, @ft, nil, nil);
 
  FileClose(Forigine);
 
  Fcible:= FileOpen(Edit2.Text, fmOpenReadWrite or fmShareDenyWrite);
 
  // Modifier la date de création du fichier d'après la date de création d'un autre fichier.
  if Fcible > 0 then
    Success:= SetFileTime(Fcible, @ft, nil, nil);
 
  if Success then
    Label1.Caption:= Edit2.Text;
 
  FileClose(Fcible);
end;

Pourrais-tu me donner ton avis sur ce code?

[Andnotor]

Il faudrait au minimum conditionner l'écriture en fonction de la lecture du fichier source. S'il n'existe pas (ou ne peut pas être ouvert), ft ne contiendra pas grand chose.
Egalement englober l'écriture dans un bloc try..finally. Si l'écriture échoue, ton fichier sera verrouillé jusqu'au prochain redémarrage du programme (voir du système ).

[Jeankiki]

oui effectivement, ce sera mieux