|
|
|
|
Управление атрибутом файла date/time
"Могу ли я написать функцию, которая устанавливает дату одного файла, равную дате другого файла?"
Не проблема. Используйте следующую функцию, использующую в качестве параметров две строки с полными путями/именами файлов DOS. Файл, дату которого вы хотите установить идет вторым параметром, файл, чью дату вы хотите использовать - первым.
|
procedure CopyFileDate(const Source, Dest: String); var SourceHand, DestHand: word;
beginSourceHand := FileOpen(Source, fmOutput); { открываем исходный файл }
DestHand := FileOpen(Dest, fmInput); { открываем целевой файл }
FileSetDate(DestHand, FileGetDate(SourceHand)); { получаем/устанавливаем дату }
FileClose(SourceHand); { закрываем исходный файл }
FileClose(DestHand); { закрываем целевой файл }
end;
|
[000534]
|
|
|
|
|