Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
3-1095336155
zorik
2004-09-16 16:02
2004.10.17
Связаные базы


3-1095850830
NewDelpher
2004-09-22 15:00
2004.10.17
Прерывание выполнения запроса


1-1096517611
Васёк
2004-09-30 08:13
2004.10.17
Рисование по текстуре


14-1096091274
Труп Васи Доброго
2004-09-25 09:47
2004.10.17
Как узнать сколько файлов в каталоге?


1-1096541936
Мирон
2004-09-30 14:58
2004.10.17
Потоки мешаю друг другу