Осуществить копирование файлов без замены существующих через функцию SHFileOperation

[Maxjuvefan]

Здравствуйте. Программа осуществляет копирование всех файлов и папок из одной указанной директории в другую. Копирование осуществляется посредством функции SHFileOperation:

function TMainForm.CopyF(fromDir, toDir: string): boolean;
var
fos: TSHFileOpStruct;
todir2: string;
begin
todir2:=todir;
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_COPY;
//fFlags := FOF_FILESONLY;
fFlags:= FOF_SIMPLEPROGRESS; //Показывать диалог с индикатором прогресса, но не показывать имен файлов
fflags:= fflags or FOF_NOCONFIRMATION; //Отвечает "yes to all" на все запросы в ходе опеации
fflags:= fflags or FOF_SILENT; //Не показывать диалог с индикатором прогресса
pFrom := PChar(fromDir + #0);
pTo := PChar(toDir2);
end;
Result := (0 = ShFileOperation(fos));
end;

Пример использования

CopyF(PChar (RootFolder.FromLabel.Caption), PChar (RootFolder.InLabel.Caption));

Если файл существует, то он будет заменен автоматически. Но мне этого не надо, так как копирование будет происходить автоматически через таймер, и массив файлов со временем будет увеличиваться. Как сделать так, чтобы, если файлы уже существует, то копирование не происходило. Смотрел информацию по fFlags, но нужного не нашел, есть только FOF_RENAMEONCOLLISION - присваивает файлу новое имя при операциях копирования, перемещения или переименования, если файл с указанным именем уже существует, но мне нужно, чтобы он просто не копировался.

[Aliens_wolfs]

Проверку нужно делать If FileExists(файл) then

[Maxjuvefan]

Там будет куча вложенных папок и файлов. В папку откуда копироваться каждый день будет создаваться папка с текущей датой, а в эту папку будут падать в течении суток файлы. Получается, что по истечению 10 дней программа будет перекопировать все папки с файлами за 10 дней, а это не нужно.

[Aliens_wolfs]

Лови функцию которая копирует все что в папке с проверкой на существующую папку или файл

  procedure FileDirCopy(srcPath, NewParch : string);

//Функция получающая список файлов и папок
 Procedure ScanDir(StartDir: String; List: TStrings);
Var SearchRec: TSearchRec;
Begin
IF StartDir[Length(StartDir)]<>'\'then StartDir := StartDir + '\';
List.Add(StartDir);
IF FindFirst(StartDir+'*.*',faAnyFile,SearchRec)=0 then Repeat
IF(SearchRec.Attr and faDirectory)<>faDirectory then
List.Add(StartDir+SearchRec.Name);
Until FindNext(SearchRec)<>0;
IF FindFirst(StartDir+'*.*',faAnyFile,SearchRec)=0 then Repeat
IF((SearchRec.Attr and faDirectory)=faDirectory)and
((SearchRec.Name<>'..')and(SearchRec.Name <> '.'))then
ScanDir(StartDir+SearchRec.Name+'\',List);
Until FindNext(SearchRec)<>0;
FindClose(SearchRec);
end;

//Ну и применение этих функций
var
 i: integer;
 Lists: TStringList;
 NewFileDir: string;
 begin
try
Lists:= TStringList.Create;
 ScanDir(srcPath, Lists);
 For i:= 0 to Lists.Count-1 do
 begin
NewFileDir:= StringReplace(Lists[i], srcPath, NewParch, [rfReplaceAll]);
//Проверка на существование папки, если ее нет то создаем
 if not DirectoryExists(ExtractFilePath(NewFileDir)) then
 mkDir(ExtractFilePath(NewFileDir));
//Проверка на существование файла так как true, если его нет то копируем
  CopyFile(PAnsichar(Lists[i]), PAnsichar(NewFileDir), true);
// либо ваша функция c ShFileOperation
if not FileExists(NewFileDir) then
CopyF(Pchar(Lists[i]), Pchar(NewFileDir));
       application.ProcessMessages;
  end;
finally
  Lists.free;
 end;
 end;

//Использование
procedure TForm1.Button2Click(Sender: TObject);
begin
//Из папки в папку
FileDirCopy('C:\111\', 'C:\222\');
end;

[саша40]

А копировать папку только с нужной датой религия не позволяет? Просто задать в запись для функции в параметре From путь к этой папке. Система по идеи должна откопировать папку вместе с её содержимым.

[Aliens_wolfs]

Видимо он хочет чтобы не было постоянного копирования файлов которые уже есть.
Еще можно сверять по дате и времени создания файла и размеру, тогда точнее будет, даже с разными именами не будет копировать так как он уже есть, но будет дольше по времени копировать, так как по всем файлам каждый файл проверяеться

[саша40]

Сообщение от Aliens_wolfs

Видимо он хочет чтобы не было постоянного копирования файлов которые уже есть.
Еще можно сверять по дате и времени создания файла и размеру, тогда точнее будет, даже с разными именами не будет копировать так как он уже есть, но будет дольше по времени копировать, так как по всем файлам каждый файл проверяеться

Представим. Автоматика ведет некий лог и складывает их папку. Эту папку и её содержимое нужно куда-то отправить. Задача разве не такая? Если нет, тогда просим автора объяснить задачу в деталях. Если да, то просто дайте команду автоматике поступать как в задаче. Пусть складирует в папку: Logs - <дата>. А в конце эту папку достаточно будет откопировать как файл через SHFileOperation. По идеи так же работает Проводник, поэтому если копирует папку, то и копирует файлы и подпапки в ней. Всё очень просто.

[Maxjuvefan]

Сообщение от саша40

Представим. Автоматика ведет некий лог и складывает их папку. Эту папку и её содержимое нужно куда-то отправить. Задача разве не такая? Если нет, тогда просим автора объяснить задачу в деталях. Если да, то просто дайте команду автоматике поступать как в задаче. Пусть складирует в папку: Logs - <дата>. А в конце эту папку достаточно будет откопировать как файл через SHFileOperation. По идеи так же работает Проводник, поэтому если копирует папку, то и копирует файлы и подпапки в ней. Всё очень просто.

Да, допустим, что автоматика ведет некий лог и складывает их в папку Log в подпапку с текущей датой. Эту папку Log необходимо каждую минуту копировать куда-то, так как возможно появление в ней новых файлов. Только нужна проверка на наличие в том месте уже существующих файлов, иначе процесс копирования сильно будет затягиваться. Задача такая.

[Maxjuvefan]

Данную задачу я реализовал следующим способом:

procedure TMainForm.StartCopyClick(Sender: TObject);
var
Files : TStrings;
i, j: integer;
s, s1, s2: string;
begin
  Files:=GetDirList(RootFolder.FromLabel.Caption);
  for i := 0 to Files.Count- 1 do
     begin
     s:=Files[i];
     for j := length(RootFolder.FromLabel.Caption) downto 1 do
     begin
        if s[j-1]= '\' then
        begin
             s2:=copy(RootFolder.FromLabel.Caption, j-1, length(s)-j);
             s1:=Copy(s,0,Pos(s2,s)-1);
             s:=StringReplace(s,s1,RootFolder.InLabel.Caption,
                          [rfReplaceAll, rfIgnoreCase]);
             break;
        end;
     end;
     if not FileExists(s) then
     begin
        CopyF(PChar (RootFolder.FromLabel.Caption), PChar (RootFolder.InLabel.Caption));
     end;
  end;

function TMainForm.GetDirList(const RootDir:String):TStrings;
var
        Directories:TStrings;
        CurrentDirIndex:Integer;
        CurrentDirName,SearchPath,FoundFileName:String;
        R:TSearchRec;
begin
        Directories:=TStringList.Create;
        try
                Result:=TStringList.Create;
                try
                        Directories.Append(RootDir);
                        CurrentDirIndex:=0;
                        repeat
                                CurrentDirName:=IncludeTrailingPathDelimiter(Directories[CurrentDirIndex]);
                                SearchPath:=CurrentDirName+'*.*';
                                if FindFirst(SearchPath,faAnyFile,R)=0 then
                                        try
                                                repeat
                                                        if (R.Name<>'.') and (R.Name<>'..') then
                                                                begin
                                                                        FoundFileName:=CurrentDirName+R.Name;
                                                                        if R.Attr and faDirectory<>0 then Directories.Append(FoundFileName)
                                                                                                     else Result.Append(FoundFileName);
                                                                end;
                                                until FindNext(R)<>0;
                                        finally
                                                FindClose(R);
                                        end;
                                Inc(CurrentDirIndex);
                        until CurrentDirIndex>=Directories.Count;
                except
                        FreeAndNil(Result);
                        raise;
                end;

        finally
                Directories.Free;
        end;
end;

Всем спасибо большое за участие

[саша40]

Сообщение от Maxjuvefan

Да, допустим, что автоматика ведет некий лог и складывает их в папку Log в подпапку с текущей датой. Эту папку Log необходимо каждую минуту копировать куда-то, так как возможно появление в ней новых файлов. Только нужна проверка на наличие в том месте уже существующих файлов, иначе процесс копирования сильно будет затягиваться. Задача такая.

Значит синхронизация. Попробуйте ввести Ini-синхронизатор. Это некий список для синхронизации папок. Можно даже очищать его каждую синхронизацию. Заполнение следующим образом:
Открытие файла-синхронизатора.
Запись файла с данными лога текущего момента времени.
Запись строки в файл-синхронизатор. (Дата, время + Имя записанного файла + возможно какие-либо ещё данные).
Закрытие файла-синхронизации.

При синхронизации запрашиваем именно этот файл(данные из него или сам файл, без разницы).
Считываем в нём данные и копируем только те, которые в нём указаны.
Очищаем файл. Если файл не очищать(например, за сессию или за день), то копировать надо только те файлы, которые после времени начала последней синхронизации).
Закрываем файл-синхронизатор.

Если синхронизация идет на сервер в сети или в сетевой базе данных, то проще дать автоматике команду автоматической отправки логов на сервер. Тут ещё надо сделать временную запись лога в память, если они идут в потоке, чтобы не вызвать Access Violition при попытке доступа к файлу-синхронизатору, если вдруг он занят синхронизацией(вероятность такого довольно мала, ~1-2%, но не далеко нулевая). Последние нужно, если запись идет чисто на жесткий диск.
Принять данное или нет - решать вам. Но предложенный метод требует на 50-60% меньше вычислительных команд, а следовательно времени, для вашей задачи.