Скачать: CL | DM;

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

← →
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

---

← →
D@Nger ©   (2006-04-28 07:10) [6]

Большое спасибо 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;

---

← →
D@Nger ©   (2006-04-28 07:13) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c