Копирование только самых новых файлов

[AppData]

выкладываю. см. вложение

[Stilet]

выкладываю. см. вложение

Смотрю и что я вижу?:

Const
PathFrom='d:\1\'; //Откуда
PathTo='d:\1\0\'; //Куда

Внимание!: Ассоциация прав защиты кроликов напоминает - копипастэ без разбора может привести к дерьмографическому взрыву.

[AppData]

так и есть,..
но он ничего не копирует...

Внимание!: Ассоциация прав защиты кроликов напоминает - копипастэ без разбора может привести к дерьмографическому взрыву.
ЗМЕШНО!!!

[Человек_Борща]

Внимание!: Ассоциация прав защиты кроликов напоминает - копипастэ без разбора может привести к дерьмографическому взрыву.

Зоч0т! Забрал в копилку

[Stilet]

но он ничего не копирует...

Эх...
Смотрим внимательно код. Думаем!!!
Вчитливо всматриваемся в маску копируемых файлов в FindFirst().
Потом еще раз перечитываем кодекс Федерации Ксерокопирастов, где тонерным по белому начертано: Бездумное копипастэ без какой либо попытки изучения может караться от 5 до 7... часов проведения на форумах в попытке получения бугагашечек.

А потом еще раз смотрим на маску файлов и осознаем что у автора (т.е. мну) примера свои соображения написать пример так, чтоб он копировал не все файлы из каталога, а те которые нужно.

[AppData]

Stilet, да все я это знаю! *.* все файлы. я ему уже конкретные маски указывал такие как .jpg
но ничего не работает!

 if FindFirst(PathFrom+'*.*',faAnyFile,sr)=0 then repeat

[AppData]

да неужели, оказывается поторопился. и ошибся сам. СПАСИБО!!! ВАМ!!!

еще один вопрос, скромный. а как вывести в Memo1 список измененных файлов. и как их скопировать! ведь в коде

if (not Found)or dateDiff then begin - это первый запуск я так понял!
    Form1.Memo1.Lines.Add(PathFrom + SR.Name);
    windows.CopyFile(PChar(PathFrom+sr.Name), PChar(PathTo+sr.Name), false);

он копирует не измененные, а все подряд!

хотя задача заключалась в том чтобы копировал только измененные.



как теперь копировать изменненые, не понятно и вывести их в memo1

        dateDiff:=(FileProperty.FindData.ftLastWriteTime.dwHighDateTime<>sr.FindData.ftLastAccessTime.dwHighDateTime)or
                 (FileProperty.FindData.ftLastWriteTime.dwLowDateTime<>sr.FindData.ftLastAccessTime.dwLowDateTime);
                 CopyFile(PChar(Files[i]), PChar(PathTo.Text+sr.Name), false);

копирует все

[Stilet]

он копирует не измененные, а все подряд!

В этом коде found означает найденное. А DateDiff - что есть разница между датами
Итого: if (не Найдено ) или РазницаВДате then begin

[AppData]

Stilet,

if (not Found) or dateDiff then begin

а дальше?!

CopyFile(PChar(PathFrom.Text+sr.Name), PChar(PathTo.Text+sr.Name), false);

копирует все.

[Stilet]

Я просто подкинул идею. Не надо за не как за панацею цепляться. Ты хотел программу с проверкой дат - я ответил как это может выглядить.