Копирование КАТАЛОГА

[Рустам]

Ребят... Подскажите плз.
Есть Какая-нить ф-я или пр-ра для копирования каталога?
Я в Google стучал, там глухо
Как копировать файлы - хоть заройся, а вот как каталог скопировать?
Может ссылочка есть, али шкодинг...

[mihali4]

Для начала уберите рекламу из подписи - у нас это не принято. Странно, что ZETRIX не отреагировал должным образом...
Ответ на ваш вопрос у меня есть в виде исходника.
Жду ответной реакции.

[KORN]

procedure TForm1.CopyFile(Dir:String; CopyTo: string);
Var
  SR:TSearchRec;
  FindRes: integer;
begin
  FindRes:=FindFirst(dir+'*.*',faAnyFile,SR);
  While FindRes=0 do
  begin
  application.ProcessMessages;
    if ((SR.Attr and faDirectory)=faDirectory) and
    ((SR.Name='.')or(SR.Name='..')) then
    begin
    FindRes:=FindNext(SR);
    Continue;
    end;
    if ((SR.Attr and faDirectory)=faDirectory) then
    begin
    FindFile(Dir+SR.Name+'\');
    FindRes:=FindNext(SR);
    Continue;
    end;
    copyfile(pchar(Dir+SR.Name), pchar(CopyTo+'\'+sr.name), true);
  end;
end;

dir - это папка каторую надо скапировать...
CopyTo - место в которое капируем файлы...

[Stilet]

Скока мона твердить: Delphi World ответит на все эти вопросы, скачать его мона очень просто.
Вот оттуда :

unit FilesOp;

interface

uses Forms, SysUtils, ShellAPI, Dialogs;

procedure CopyFiles(const FromFolder: string; const ToFolder: string);

implementation

procedure CopyFiles(const FromFolder: string; const ToFolder: string);
var
Fo : TSHFileOpStruct;
buffer : array[0..4096] of char;
p : pchar;
begin
FillChar(Buffer, sizeof(Buffer), #0);
p := @buffer;
StrECopy(p, PChar(FromFolder)); //директория, которую мы хотим скопировать
FillChar(Fo, sizeof(Fo), #0);
Fo.Wnd := Application.Handle;
Fo.wFunc := FO_COPY;
Fo.pFrom := @Buffer;
Fo.pTo := PChar(ToFolder); //куда будет скопирована директория
Fo.fFlags := 0;
if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then
ShowMessage('File copy process cancelled')
end;

end.

[Квэнди]

Уберете рекламу, сниму бан.

[execom]

Способ без всяких сложностей)))) Главное отлично побходит для апишный прог в силу крайней компактности)))) И не говорите мне что это не профессионально... - это быстро и надёжно

Procedure CopyDir(FromDir,ToDir:string);
begin
winexec(PChar('cmd /c xcopy /C /H /Q /Y ''+FromDir'+' '+ToDir),SW_Hide);
end;

[Alar]

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

Для начала уберите рекламу из подписи - у нас это не принято

Это не реклама. Это анекдот.

[KORN]

Procedure CopyDir(FromDir,ToDir:string);
begin
winexec(PChar('cmd /c xcopy /C /H /Q /Y ''+FromDir'+' '+ToDir),SW_Hide);
end;

прочитал раза 4 и тока патом поянл как ты все это замудрена сделал... +1 тебе чувак, но объясни че значат все эти /c xcopy /C /H /Q /Y?

З.Ы. кто убрал мой пост7

[zetrix]

прочитал раза 4 и тока патом поянл как ты все это замудрена сделал... +1 тебе чувак, но объясни че значат все эти /c xcopy /C /H /Q /Y?

cmd - запуск командной строки
/C - Выполнение указанной команды, с последующим завершением
xcopy - Копирование файлов и дерева папок
/C - Продолжает копирование, даже если произошла ошибка
/H - Копирует скрытые и системные файлы
/Q - Не отображает имена файлов во время копирования
/Y - Подавляет запрос на подтверждение перезаписи существующего конечного файла.

Запускаем cmd, пишем cmd /? - получаем дофига инфы (в том числе и про /С). Потом пишем в командной строке: xcopy /? - и опять получаем дофига инфы, с объяснением всего (и это по русски).
Неужели самому сложно так сделать?

По поводу рекламы, никто нигде не запрещал использовать рекламу в подписи. В постах запрещено (кроме раздела "для спамеров"). Поэтому я и не отреагировал. (Да и посмотрите на мою подпись: моя реклама 1 + реклама правил 1 + реклама клуба 3 = аж 5 ссылок)

Korn - Ваш пост удалил модератор.

И если вы тут так хотите обсудить нарушение, то стоит напомнить, что использование в логине только заглавных букв - не приветствуется (это было в старых правилах)

Ещё вопросы?

[mihali4]

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

Это не реклама. Это анекдот.

М-да-а..
Зашел, посмотрел ради любопытства...
Тогда тем более, зачем людей на всякую, м-м-м, фигню отвлекать?