VPF::Удаление каталога - Форум программистов

Vit

Дата 25.4.2002, 13:56 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

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

Функция для удаления каталогов, взята из рассылки "Мастера DELPHI. Новости мира компонент, FAQ, статьи..." Я ее не проверял, но похоже она рекурсивно заходит во все вложенные подкаталоги и удаляет их содержимое.

Код


Function MyRemoveDir(sDir : String) : Boolean; 
var 
 iIndex : Integer; 
 SearchRec : TSearchRec; 
 sFileName : String; 
begin 
 Result := False; 
 sDir := sDir + '\*.*'; 
 iIndex := FindFirst(sDir, faAnyFile, SearchRec); 

 while iIndex = 0 do begin 
  sFileName := ExtractFileDir(sDir)+'\'+SearchRec.Name; 
  if SearchRec.Attr = faDirectory then begin 
   if (SearchRec.Name <> '' ) and 
   (SearchRec.Name <> '.') and 
   (SearchRec.Name <> '..') then 
    MyRemoveDir(sFileName); 
  end else begin 
   if SearchRec.Attr <> faArchive then 
    FileSetAttr(sFileName, faArchive); 
   if NOT DeleteFile(sFileName) then 
    ShowMessage('Could NOT delete ' + sFileName); 
  end; 
  iIndex := FindNext(SearchRec); 
 end; 

 FindClose(SearchRec); 

 RemoveDir(ExtractFileDir(sDir)); 
 Result := True; 
end;

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

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

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