VPF::Как удалить папку со всем её содержимым?

Cyri

Дата 20.12.2004, 18:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 23.7.2004

Репутация: нет
Всего: нет

Народ, подскажите, как удалить папку со всем её содержимым? Папка содержит файлы (с этим я справлюсь) и другие папки (а с этим пока непонятно)? Может можно как-то грубо удалить всю папку без проверки на наличие файлов в ней?
Кирилл

z-END

Дата 20.12.2004, 18:26 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

DRKB гласит:

Код


uses ShellApi; 
... 
var sh : SHFILEOPSTRUCT; 
begin 
 ...  
 
 sh.Wnd := Application.Handle;  
 sh.wFunc := FO_DELETE;  
 sh.pFrom := 'c:\\test\0';  
 sh.pTo := nil;  
 sh.fFlags := FOF_NOCONFIRMATION or FOF_SILENT;  
 sh.hNameMappings := nil;  
 sh.lpszProgressTitle := nil;  
 SHFileOperation (sh);  
 ...

Цитата

Надо путь писать : c:\\test\dfg
Чтобы вначале "\\" было...иначе не будет удалять диры из корня

Автор ответа: Baa
Взято с Vingrad.ru http://forum.vingrad.ru

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Rennigth

Дата 20.12.2004, 18:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Цитата

Может можно как-то грубо удалить всю папку без проверки на наличие файлов в ней?

вроде нет, надо рекурсивно бежать по всем поддиректориям и сносить все что увидишь.
Добавлено @ 18:29
бзззз... буду знать...

--------------------

(* Honesta mors turpi vita potior *)

SlaUr

Дата 20.12.2004, 18:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5

Не раз проверенная функция: Function DeleteDirs(Dir : string)
Модуль MySys

Это сообщение отредактировал(а) SlaUr - 20.12.2004, 18:34

devmstr

Дата 20.12.2004, 22:44 (ссылка)

(нет голосов)

Загрузка ...

Developer

Профиль
Группа: Участник
Сообщений: 879
Регистрация: 28.4.2004
Где: Ukraine

Репутация: 2
Всего: 11

Код


//функция удаляет указанную директорию со всеми поддиректориями
function DeleteDirectories(fpath:String):boolean; //true - удаление прошло успешно, false - при удалении возникли ошибки
Var
 SearchRec:TSearchRec;

function isDirectory(pCheckedfile:TSearchRec):Boolean;
begin
 if ((pCheckedfile.Attr>=16) and (pCheckedfile.Attr<=31)) or ((pCheckedfile.Attr>=48) and (pCheckedfile.Attr<=63)) then
  result:=true
 else
  result:=false;
end;

begin
 result:=true;
 if FindFirst(fpath+'*.*',faAnyFile,SearchRec)=0 then
  begin
   repeat
    If not(SearchRec.Name='.') and not(SearchRec.Name='..') then
     begin
      if isDirectory(SearchRec) then
       begin
        if not(DeleteDirectories(fpath+SearchRec.Name+'\')) then
         Result:=false;
        end
      else
        if not(DeleteFile(fpath+SearchRec.Name)) then
          Result:=false;
     end;
   until FindNext(SearchRec)<>0;
  end;
 FindClose(SearchRec);
 RemoveDirectory(pchar(fpath));
end;

Если есть вопросы, спрашивай.
Протестил, вроде работает без глюков, странно прада? smile

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »