🚀 go-pugleaf

Hi Remy,

Thank you so much for your reply and code. Actually I tried the code and it
works great as long as I sending (*.*) to MaskToFind parameter, although
when I tried to change the file mask to something like (*.gif) for example
it didn't return any file found. please find below the code that I used. So
I will appreciate it if you can tell me why this problem occurs

P.S. I replaced MatchesMask function with AnsiString Pos function as I had
problems compiling the code with MatchesMask (returns error call to
undefined function).

Once again thank you so much for your help

bool __fastcall TForm1::SearchForFileByGambit(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 = SearchForFileByGambit(Folder + sr.Name,
MaskToFind);
                    }
                    else
                    {
                         if(sr.Name.Pos(MaskToFind)== 0)
                        {
                             ListBox1->Items->Add(sr.Name);
                             returnedval = true;
                        }
                        else
                        {   returnedval = false;
                        }
                    }
                }
            }
            while( (!returnedval) && (FindNext(sr) == 0) );
            FindClose(sr);
        }
        return returnedval;
}
//--------------------------------------------------------------------------
--

"Remy Lebeau (TeamB)" <gambit47.no.spam@no.spam.yahoo.com> wrote in message
news:40232de8$1@newsgroups.borland.com...
>
> Try this code instead:
>