Club Builder

[Alfonso]

In Delphi there is a function called RemoveDir that delete empty directories. But what about directories that has files and sub-sub... directories?

For this reason I implemented my own function to act like the normal RemoveDir function but with extra functionality to delete any files or subdirectories in side that directory.

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;

Example:

if NOT MyRemoveDir('D:\myDir') then
ShowMessage('Can NOT delete dir');

Note:
(1) Any system/hidden/read-only files will be deleted

GRACIAS POR LEER EL ESTE MENSAJE

[nacho]

Mis conocimientos de Delphi son un poco limitados pero, ¿no devuelve siempre "true" esta función?
Es posible que no haya entendido bien el concepto de la variable implícita "Result" pero de todas formas he intentado traducirlo.

bool MyRemoveDir(AnsiString sDir)
{
int iIndex;
TSearchRec SearchRec;
AnsiString sFileName;
bool Result=false

sDir+= "\\*.*";
iIndex = FindFirst(sDir, faAnyFile, SearchRec);

while(!iIndex)
{
sFileName = ExtractFileDir(sDir)+"\\"+SearchRec.Name;
if(SearchRec.Attr==faDirectory)
if((SearchRec.Name != "" ) &&
(SearchRec.Name != ".") &&
(SearchRec.Name != ".."))
/*Result=???*/MyRemoveDir(sFileName);
else
if(SearchRec.Attr != faArchive)
FileSetAttr(sFileName, faArchive);
if(!DeleteFile(sFileName))
ShowMessage("Could NOT delete " + sFileName);
}
iIndex = FindNext(SearchRec);
}

FindClose(SearchRec);

RemoveDir(ExtractFileDir(sDir));
Result=true;
return(Result);
}