Рекурсивное копирование данных

[biohazard120]

Здравствуйте, уважаемые форумчане. Сегодня столкнулся с проблемой.
Собственно сабж: нашел в интернете кусок кода для рекурсивного копирования, но он копирует только половину данных(данный код уже приводился на этом форуме, однако вразумительного ответа никто не дал). После вырезания условия проверки SR.Attr = faDirectory (такое решение пришло после часового изучения функции дебаггером) копироваться стали все файлы, однако теперь функция в любом случае возвращает false. Прошу помощи у более опытных собратьев. =)

function TForm1.FDC(SourceDir, TargetDir: string; StopIfNotAllCopied,
  OverWriteFiles: Boolean): Boolean;
var
  SR: TSearchRec;
  I: Integer;
begin
  Result := False;
  SourceDir := IncludeTrailingBackslash(SourceDir);
  TargetDir := IncludeTrailingBackslash(TargetDir);
  if not DirectoryExists(SourceDir) then
    Exit;
  if not ForceDirectories(TargetDir) then
    Exit;
  I := FindFirst(SourceDir + '*', faAnyFile, SR);
  try
    while I = 0 do
    begin
      if (SR.Name <> '') and (SR.Name <> '.') and (SR.Name <> '..') then
      begin
        if SR.Attr = faDirectory then
          Result := FDC(SourceDir + SR.Name, TargetDir + SR.NAME,
            StopIfNotAllCopied, OverWriteFiles)
        else if not (not OverWriteFiles and FileExists(TargetDir + SR.Name)) then
            Result := CopyFile(Pchar(SourceDir + SR.Name), Pchar(TargetDir +
            SR.Name), False)
        else
          Result := True;
        if not Result and StopIfNotAllCopied then
          exit;
      end;
      I := FindNext(SR);
    end;
  finally
    SysUtils.FindClose(SR);
  end;
end;

P.S. Не ругаться на IncludeTrailingBackslash, он прекрасно работает в RAD 2010

[eoln]

Папки кроме faDirectory могут иметь другие атрибутов(скрытые и т.п). Каталог/не каталог лучше различать так

if (SR.Attr and faDirectory) = faDirectory then каталог
if (SR.Attr and faDirectory) <> faDirectory then не каталог

При выходе по exit надо бы по этикету закрыть поиск.

P.S. Остальное не проверял

[biohazard120]

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

Папки кроме faDirectory могут иметь другие атрибутов(скрытые и т.п). Каталог/не каталог лучше различать так

if (SR.Attr and faDirectory) = faDirectory then каталог
if (SR.Attr and faDirectory) <> faDirectory then не каталог

При выходе по exit надо бы по этикету закрыть поиск.

P.S. Остальное не проверял

Благодарю, помогло. Тему можно закрыть