Удаление каталога со всем содержимым

{ Удалить каталог со всем содержимым } function

DeleteDir(Dir : string) : boolean; Var

Found : integer;
SearchRec : TSearchRec;
begin

result:=false;
if IOResult<>0 then ; ChDir(Dir);
if IOResult<>0 then begin ShowMessage('Не могу войти в каталог: '+Dir); exit; end;
Found := FindFirst('*.*', faAnyFile, SearchRec); while Found = 0 do
begin
if (SearchRec.Name<>'.')and(SearchRec.Name<>'..') then if (SearchRec.Attr and faDirectory)<>0

then

begin if not DeleteDir(SearchRec.Name) then exit; end else
if not DeleteFile(SearchRec.Name) then begin ShowMessage('Не могу удалить файл: '+SearchRec.Name); exit; end;
Found := FindNext(SearchRec); end;
FindClose(SearchRec);
ChDir('..'); RmDir(Dir); result:=IOResult=0;
end

;

Другое по теме:

• Копирование файлов вместе с каталогами
• Определение размера каталога
• Удаление каталогов