Форум: "Начинающим";
Текущий архив: 2007.11.04;
Скачать: [xml.tar.bz2];
Вниз
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.043 c
