Помогите написать программу для удаления каталога с файлами

[ig@r]

Помогите, пожалуйста, написать программу для удаления каталога с файлами. Никак не получается. Пробовал и рекурсивно и нереркурсивно! Может у кого есть исходник? Помогите, срочно необходимо решить эту задачу!!!

[DelphiLab]

Ну это классика.
Вот два примера из DRKB

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;

uses ShellApi;
...
var sh : SHFILEOPSTRUCT;
begin
...
sh.Wnd := Application.Handle;
sh.wFunc := FO_DELETE;
sh.pFrom := 'c:\\test\0';
sh.pTo := nil;
sh.fFlags := FOF_NOCONFIRMATION or FOF_SILENT;
sh.hNameMappings := nil;
sh.lpszProgressTitle := nil;
SHFileOperation (sh);
...

[rpy3uH]

второй кусок предпочтительнее

[Alt]

а это сработает если в каталоге есть подкаталоги?

[Stilet]

а это сработает если в каталоге есть подкаталоги?

А че нет? Впрочем что мешает проверить?