🚀 go-pugleaf

Hi all,

I am trying to make a function that will search directory and all its
subdirectories for a file mask and delete them, although I have a problem
that the search does not cover all the directory subdirectories...so can
someone help me please by telling me what exactly I am missing here...thanks
in advance.

Code used :
=====================
bool __fastcall TForm1::SearchForFile(AnsiString Folder, const AnsiString
&MaskToFind)
{
    TSearchRec sr;
    bool returnedval = false;

    if(!Folder.IsEmpty() && (Folder[Folder.Length()] != '\\'))
        Folder += "\\";

    if(FindFirst(Folder + MaskToFind, faAnyFile, sr) == 0)
    {
        do
        {
            if((sr.Name != ".")  && (sr.Name != ".."))
            {
                if(sr.Attr & faDirectory)
                { return SearchForFile(Folder + sr.Name,  MaskToFind);
                }
                else
                {
                    if(sr.Name.AnsiCompareIC(MaskToFind) == 0)
                    {  returnedval = true;
                        break;
                    }
                    else
                    {
                    }
                }
            }
        }
        while(FindNext(sr) == 0);
        FindClose(sr);
    }
    return returnedval;
}
//--------------------------------------------------------------------------
-- 

BR