Article #15719: How to match file date/time stamps.

 Technical Information Database

TI719D.txt   How to match file date/time stamps.
Category   :General Programming
Platform    :All
Product    :Delphi  All

Description:
Q: "How can I write a function that sets the date of one file equal to the
   date of another file?"

A: No problem.  Just use the following function, which takes two strings
   representing full DOS path/file names.  The file who's date you
   wish to set is the second parameter, and the date you wish to set it to
   is given by the file in the first parameter.

procedure CopyFileDate(const Source, Dest: String);
var
  SourceHand, DestHand: word;
begin
  SourceHand := FileOpen(Source, fmOutput);       { open source file }
  DestHand := FileOpen(Dest, fmInput);            { open dest file }
  FileSetDate(DestHand, FileGetDate(SourceHand)); { get/set date }
  FileClose(SourceHand);                          { close source file } 
  FileClose(DestHand);                            { close dest file }
end;


Reference:


7/16/98 4:33:52 PM
 

Last Modified: 01-SEP-99