Скопировать директорию...

← →
edicon © (2004-02-06 22:57) [0]

Привет всем!!!
Подскажите пожалуста, как в делфи скопировать директорию, нашел ток копирование файла, а чтоб целую папку... Спасибо!

← →
Anatoly Podgoretsky © (2004-02-06 23:11) [1]

ShFileOperation

← →
Budy © (2004-02-06 23:17) [2]

Предлагаю мудреный метод!
Сначала там, куда надо ты создаешь новую папку, и прослеживая каждый файл копируемой папки копируешь в новую. То есть каждый файлик копируешь вручную.
CreateDir - новая папка.
BlockRead > F1 - по Help"у узнаешь о копировании файла.

← →
real_dimedrol (2004-02-07 02:51) [3]

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);

var

OpStruc: TSHFileOpStruct;

frombuf, tobuf: Array [0..128] of Char;

Begin

FillChar( frombuf, Sizeof(frombuf), 0 );

FillChar( tobuf, Sizeof(tobuf), 0 );

StrPCopy( frombuf, "h:\hook\*.*" );

StrPCopy( tobuf, "d:\temp\brief" );

With OpStruc DO Begin

Wnd:= Handle;

wFunc:= FO_COPY;

pFrom:= @frombuf;

pTo:=@tobuf;

fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;

fAnyOperationsAborted:= False;

hNameMappings:= Nil;

lpszProgressTitle:= Nil;

end;

ShFileOperation( OpStruc );

end;

Скопировать директорию... Найти похожие ветки