Mega Code Archive

 

Categories / Delphi / Files

 

Change dos files date time stamp

procedure TForm1.Button1Click(Sender: TObject); var OutFile: file; OutFileName: string; FileDateTime: TDateTime; begin //File which date & time stamp are to change... OutFileName := 'c:\Test.txt'; AssignFile(OutFile, OutFileName); Reset(OutFile); //Get file's current date & time stamp... FileDateTime := FileDateToDateTime(FileAge(OutFileName)); //Set file's date one day ahead! FileSetDate(TFileRec(OutFile).Handle, DateTimeToFileDate(FileDateTime + 1)); end;