Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c