🚀 go-pugleaf

"Martin C" <martinc@aol.com> wrote in message
news:402301fc@newsgroups.borland.com...

> 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...

It doesn't work because you are passing your file mask to FindFirst()
directly, thus it is going to skip any folders that do not match the mask.
In order to search all folders, you need to use "*.*" as the FindFirst()
mask instead, and then compare each individual file against your actual
mask.

You are also stopping your searching prematurely by having a 'return'
statement in the middle of your loop.  After the first subfolder is found,
no more subfolders on the same level will be searched.

Try this code instead:

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

        Folder = IncludeTrailingBackslash(Folder);
        if( FindFirst(Folder + "*.*", faAnyFile, sr) == 0 )
        {
            do
            {
                if( (sr.Name != ".")  && (sr.Name != "..") )
                {
                    if( sr.Attr & faDirectory )
                        returnedval = SearchForFile(Folder + sr.Name,
MaskToFind);
                    else
                        returnedval = MatchesMask(sr.Name, MaskToFind);
                }
            }
            while( (!returnedval) && (FindNext(sr) == 0) );
            FindClose(sr);
        }

        return returnedval;
    }


Gambit