| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Проблема с удалением папки [D7, XP]

Yegorchic ©   (2006-08-11 10:10:00) 

Применяю вот такой код для удаления папок:


 i:=0;
 repeat
   if (TreeView.Items.Item[i].Parent.Index = -1) and (TreeView.Items.Item[i].Count = 0) then
     begin
       RemoveDir(PCHAR(AppDir + '\BackUp\'+TreeView.Items.Item[i].Text));
       If not DirectoryExists(AppDir + '\BackUp\'+TreeView.Items.Item[i].Text) then
         TreeView.Items.Item[i].Delete;
     end;
   inc(i);
 until TreeView.Items.Count <= i;


Что папки пустые и путь к папке в цикле гененируется правильно - проверял. Но из всех папок удаляется только последняя найденная в цикле. Почему?

---

D@Nger   (2006-08-11 14:32:00) [1]

Я удаляю папки, со всеми вложениями следующим способом:


function TFRestoreArchive.DeleteDir(path:string):boolean;
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 or FOF_NOCONFIRMMKDIR or FOF_NOERRORUI;
    fAnyOperationsAborted:= False;
    hNameMappings:= Nil;
    lpszProgressTitle:= Nil;
  end;
 if ShFileOperation(OpStruc)=0 then result:=true else result:=false;
end;


---

Сергей М.   (2006-08-11 10:27:00) [2]

Объясни на человеческом языке, что тебе нужно)
Подозреваю, что ты пытаешься удалить все папки, ассоциированные с корневыми узлами дерева, не имеющие подпапки .. так ?

---

Наверх