Mega Code Archive

 

Categories / Delphi / Examples

 

Set a files date time stamp

A couple of function calls are needed.. simply use this piece of code: procedure SetFileDate (TheFileName: string; aDate: string); var f : integer; begin f := FileOpen (TheFileName, fmOpenReadWrite); try FileSetDate (f, DateTimeToFileDate ((StrToDateTime (aDate)))); finally FileClose (f) end end;