Показать сообщение отдельно
  #2  
Старый 26.11.2013, 13:50
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от OkSherd
.....
Проблема состоит в том что бы как то связать этих 2 функции в одну и что бы при копировании сначала файлы сверялись на дату последней модификации и потом более старые заменялись на новые.
Заранее всем откликнувшимся выношу свою благодарность
Переделай это условие:
Код:
If Not (Not OverWriteFiles And FileExists(TargetDir + SR.Name)) Then
на такое:
Код:
if not FileExists(TargetDir + SR.Name) or (OverWriteFiles and (FileTimeModifyed(TargetDir + SR.Name) < FileTimeModifyed(SourceDir + SR.Name))) then
Тогда при указании OverWriteFiles=True будут перезаписываться только старые файлы, а при указании OverWriteFiles=False вообще не будут перезаписываться существующие файлы.

p.s. Узнать время модификации файла можно и проще.
Ответить с цитированием