Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];

Вниз

есть ли функция для удаления не пустого каталога?   Найти похожие ветки 

← →
FIL-23 ©   (2007-01-17 16:45) [0]

Вопрос вот в чем заключается: есть папка в ней файлы всякие разные, так вот как с помощью делфи удалить этот каталог вмести с его содержимым. Зарание спасибо

---

← →
Джо ©   (2007-01-17 16:46) [1]

См. ShFileOperation, там, кажется, есть.

---

← →
Amoeba ©   (2007-01-17 16:49) [2]

ShFileOperation
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=91

---

← →
Rial ©   (2007-01-17 17:24) [3]

procedure RemoveDirect(Const Name:String);
Var SS:TSearchRec;
   Result:Integer;
begin
Result:=FindFirst(Name+"\*.*",faAnyFile,SS);
While (Result=0)do begin
 If (SS.Name<>"..")and(SS.Name<>".")then
  If (SS.Attr and faDirectory=faDirectory)
   then RemoveDirect(Name+"\"+SS.Name)
   else DeleteFile(Name+"\"+SS.Name);
 Result:=FindNext(SS);
end;
FindClose(SS);
RemoveDir(Name);
end;

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.045 c