کپی کردن تاریخ یک فایل

کپی کردن تاریخ یک فایل بر اساس تاریخ یک فایل دیگر

 
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
/ 0 نظر / 24 بازدید