Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

D@Nger © (2006-04-27 14:01:00)
Каким образом можно удалить не пустое дерево каталогов ?

D@Nger (2006-04-28 07:13:00) [1]
Большое спасибо MBo !!! По твоей подсказке я нашёл способ удаления не пустого дерева каталогов.

D@Nger (2006-04-28 07:10:00) [2]
Большое спасибо 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 (2006-04-28 06:15:00) [3]
SHFileOperation
Примеры (не для удаления) есть в FAQ

D@Nger (2006-04-28 06:09:00) [4]
Хорошо, перефразирую вопрос: Каким образом можно удалить каталог со вложенными каталогами с находящимися в них файлами, стандартная функция removedir удаляет только пустой каталог. Я конечно нашел способ как удалить каталог с файлами, но если каталог содержит вложеные каталоги то этот способ уже не срабатывет.

Сергей М. (2006-04-27 14:42:00) [5]
Каков вопрос - таков и ответ.

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

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

D@Nger (2006-04-27 14:39:00) [6]
Спасибо за ответ...Очень помог

Сергей М. (2006-04-27 14:06:00) [7]
Скальпелем, к примеру..

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »