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;

ShFileOperation

> [5]

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

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