Текущий архив: 2004.10.17;
Скачать: CL | DM;
Вниз
Дериктория Найти похожие ветки
← →
Cherepovets (2004-10-05 09:59) [0]Народ как ее скопирировать в другую дерикторию
к примеру
папку log на диске с:\ на диск d:\
← →
Мастер © (2004-10-05 10:09) [1]вот пара вариантов на выбор:
1. SHFileOperation
2. FindFirst/FindNext/FindClose рекурсивно.
Оба примера есть в FAQ.
← →
Amoeba © (2004-10-05 11:28) [2]Разумнее (IMHO!) использовать SHFileOperation
Рекомендую прочесть вод это:
http://www.delphikingdom.com/asp/viewitem.asp?UrlItem=/mastering/fileshellapi.htm
← →
Cherepovets (2004-10-05 11:49) [3]
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")
ТАк вот он выдает ситемимеую ошибку про длинные имена и не копирует =(
← →
Amoeba © (2004-10-05 11:53) [4]
> Cherepovets (05.10.04 11:49) [3]
Прочитай рекомендованную мной статью. Там есть готовый правильный код.
Страницы: 1 вся ветка
Текущий архив: 2004.10.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.031 c
