Удаление дерева каталогов

← →
D@Nger © (2006-04-27 14:01) [0]

Каким образом можно удалить не пустое дерево каталогов ?

← →
Сергей М. © (2006-04-27 14:06) [1]

Скальпелем, к примеру..

← →
D@Nger © (2006-04-27 14:39) [2]

Спасибо за ответ...Очень помог

← →
Сергей М. © (2006-04-27 14:42) [3]

Каков вопрос - таков и ответ.

Спрашивается, что такое "дерево каталогов" ?

Если речь идет о файловой системе - так и говори. А телепатов здесь нет, чтобы догадываться о каких ты там "деревьях каталогах" речь ведешь.

← →
D@Nger © (2006-04-28 06:09) [4]

Хорошо, перефразирую вопрос: Каким образом можно удалить каталог со вложенными каталогами с находящимися в них файлами, стандартная функция removedir удаляет только пустой каталог. Я конечно нашел способ как удалить каталог с файлами, но если каталог содержит вложеные каталоги то этот способ уже не срабатывет.

← →
MBo © (2006-04-28 06:15) [5]

SHFileOperation
Примеры (не для удаления) есть в FAQ

Большое спасибо MBo !!! По твоей подсказке я нашел способ удаления
дерева каталогов, вот моё решение:

function TForm1.DeleteDir(path:string):integer;
var OpStruc: TSHFileOpStruct;
buf: Array [0..128] of Char;
Begin
FillChar(buf, Sizeof(buf), 0 );
StrPCopy(buf,path+"\*.*");
With OpStruc DO
Begin
Wnd:= Handle;
wFunc:= FO_DELETE;
pFrom:= @buf;
pTo:=#0;
fFlags:= FOF_NOCONFIRMATION and FOF_NOCONFIRMMKDIR;
fAnyOperationsAborted:= False;
hNameMappings:= Nil;
lpszProgressTitle:= Nil;
end;
result:=ShFileOperation( OpStruc );
end;

Большое спасибо MBo !!! По твоей подсказке я нашёл способ удаления не пустого дерева каталогов.

Удаление дерева каталогов Найти похожие ветки