Копирование папки с подпапками, как? (ф-я из гугла не работает!)

[trafbite]

Привет.

Нужно скопировать папку со всем ее содержимым, т.е. со всеми файлами и подпапками.

Гуглил, все ведет к одной функции:

function FullDirectoryCopy(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 := FullDirectoryCopy(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;

Но эта функция у меня работает только частично: файлы из исходной папки она копирует, а вот подпапки и их содержимое - нет.

Вызываю так:

FullDirectoryCopy(Edit2.Text, ExtractFilePath(Application.ExeName)+dir, false, true);// "dir" была создана заранее

Что делаю не так?

[Putin-mode]

Вот тут пример разобрали http://expert.delphi.int.ru/question/2223/ или через шелапи http://www.realcoding.net/articles/f...-shellapi.html

[trafbite]

Сообщение от Putin-mode

Вот тут пример разобрали http://expert.delphi.int.ru/question/2223/ или через шелапи http://www.realcoding.net/articles/f...-shellapi.html

Точно! Разобрался, спасибо!