Changer la date d'un fichier

procedure ChangeDateOfFile(FileName: string; NewDate: TDateTime);
var
TheFile: file;
begin
AssignFile(TheFile, FileName);
Reset(TheFile);
FileSetDate(TFileRec(TheFile).Handle,
DateTimeToFileDate(NewDate));
Close(TheFile);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ChangeDateOfFile('c:monfichier.txt', now);
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour17/01/2005
VisualisationVu 3555 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Fichier
Auteur de l'article
P. Below P. Below
connecté le 02/11/2011
19 articles dans la section
Contacter l'auteur