Текущий архив: 2007.11.04;
Скачать: CL | DM;

Вниз

RemoveDir   Найти похожие ветки 

← →
WooW   (2007-10-14 17:13) [0]

Пытаюсь удалить папку по RemoveDir -- результат отстуствует.
Путь передаю полностью: c:\documents and settings\CurrentAdmin\Desktop\Folder\

GetLastError возвращает 145. Что не так?

---

← →
Ping   (2007-10-14 17:14) [1]

SysErrorMessage(GetLastError);

---

← →
WooW   (2007-10-14 17:21) [2]

Да, спасибо помогло. Папка не пустая. Как удалить папку целиком, включая все файлы? Или придется сначало удалить все файлы?

---

← →
Denis__ ©   (2007-10-14 17:33) [3]

Сначала все файлы внутри всех папок внутри этой папки.

---

← →
vasIZmax ©   (2007-10-14 17:40) [4]

function DeleteDir(Dir: string): boolean;
var
 Found: integer;
 SearchRec: TSearchRec;
begin
 result := false;
 if IOResult <> 0 then
   ChDir(Dir);
 if IOResult <> 0 then
 begin
   ShowMessage("Не могу войти в каталог: " + Dir);
   exit;
 end;
 Found := FindFirst("*.*", faAnyFile, SearchRec);
 while Found = 0 do
 begin
   if (SearchRec.name <> ".") and (SearchRec.name <> "..") then
     if (SearchRec.Attr and faDirectory) <> 0 then
     begin
       if not DeleteDir(SearchRec.name) then
         exit;
       end
       else
         if not DeleteFile(SearchRec.name) then
         begin
           ShowMessage("Не могу удалить файл: " + SearchRec.name);
           exit;
         end;
       Found := FindNext(SearchRec);
     end;
 FindClose(SearchRec);
 ChDir("..");
 RmDir(Dir);
 result := IOResult = 0;
end;

---

← →
Anatoly Podgoretsky ©   (2007-10-14 18:11) [5]

ShFileOperation

---

← →
MetalFan ©   (2007-10-14 22:23) [6]

> [5]

http://delphiworld.narod.ru/base/copy_del_move_dir.html
только там небольшой недочетик есть

---

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

Текущий архив: 2007.11.04;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.025 c