Главная страница
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.044 c
4-1095343723
Ezhik
2004-09-16 18:08
2004.10.17
Поиск файла


9-1086404583
<<BEAST>>
2004-06-05 07:03
2004.10.17
Вода на GLScene


9-1087359964
AndruhaO
2004-06-16 08:26
2004.10.17
Видеорежим


4-1095353519
RaPToR_1
2004-09-16 20:51
2004.10.17
блокировка


14-1096051743
lipskiy
2004-09-24 22:49
2004.10.17
Посоветуйте - два UPSа или один?