Текущий архив: 2004.02.17;
Скачать: CL | DM;
Вниз
Скопировать директорию... Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Текущий архив: 2004.02.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
