Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.47 MB
Время: 0.02 c
5-1162640276
ratas
2006-11-04 14:37
2007.11.04
Новый компонент на основе TTrackBar


15-1190862990
Slider007
2007-09-27 07:16
2007.11.04
С днем рождения ! 27 сентября 2007 четверг


2-1192106025
Ega23
2007-10-11 16:33
2007.11.04
Поясните про TTreeNode.StateIndex


15-1190822043
Dark Lord
2007-09-26 19:54
2007.11.04
Недостаточно памяти для обработки команды


2-1191572966
Scarllett
2007-10-05 12:29
2007.11.04
URL/HTML открытого окна MS IE