Цитата:
|
Сообщение от Sagat
...как сделать что бы сравнивала файлы по очереди и копировала те на пример которых время последнего изменения больше.
а если время одинаково то переходила к сл.
|
1:
Код:
//searchResult.Time {integer}
if DateFile < searchResult.Time then ... 2: (дата последнего изменения файла)
Код:
function GetFileDate(FileName: string): TDateTime;
var FHandle: Integer;
begin
FHandle:= FileOpen(FileName, 0);
try
Result:= FileDateToDateTime(FileGetDate(FHandle));
finally
FileClose(FHandle);
end;
end;
Последняя функция очень долго работает т.к. открывается каждый раз файл и если он занят другим потоком, это может привести к AV.