Как изменить дату и время файла

procedure
 ChangefileStamp(filename: TFileName; newtime: TDateTime);
var

  vhnd: Integer;
begin

  vhnd := FileOpen(filename, fmOpenReadWrite);
  FileSetDate(vhnd, Datetimetofiledate(newtime));
  FileClose(vhnd);
end
;

Другое по теме:

• Как скопировать все файлы вместе с подкаталогами
• Копирование файлов
• Удалить файл в корзину? Запросто!