Modifier la date de création d'un fichier

Version imprimable

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:

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;

Avec SetFileTime:

Code:

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;

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

Code:

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?

23/08/2010, 12h16
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 :aie:).
23/08/2010, 12h20
Jeankiki

oui effectivement, ce sera mieux :D