Показать сообщение отдельно
  #10  
Старый 29.04.2013, 21:14
icWasya icWasya вне форума
Местный
 
Регистрация: 09.11.2010
Сообщения: 499
Репутация: 10
По умолчанию

Чтобы проверить FileDate, файл открывать не надо.
Код:
if FileAge(Edit1.Text+'\'+searchResult.Name) >  FileAge(Edit2.Text+'\'+searchResult.Name) then
 CopyFile(Pchar(Edit1.Text+'\'+searchResult.Name), Pchar(Edit2.Text+'\'+searchResult.Name),true)
Ответить с цитированием