есть ли функция для удаления не пустого каталога?

← →
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

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;

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