🚀 go-pugleaf

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

> when I tried to change the file mask to something like
> (*.gif) for example it didn't return any file found.

That is because you are not paying attention to wildcards at all.  You are
trying to do a straight 1-to-1 comparison on something that is not
comparable that way to begin with.  "somefile.gif" and "*.gif" cannot be
directly compared because the "*" does not appear in the actual filename.
It is a placeholder that needs to be parsed and resolved dynamically.  That
is why I changed your earlier code to use MatchesMask() instead, as it
handles wildcard matching.  If you do not have MatchsMask() available in
your version of BCB, then you will just have to do the parsing manually.  If
all you are actually interested in is file extensions and nothing else, then
do not specify "*" at all, and then you can use ExtractFileExt() for the
comparison, ie:

    SearchForFile("C:\\", ".gif");

    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
                    {
                         if( AnsiSameText(ExtractFileExt(sr.Name),
MaskToFind) )
                        {
                            ListBox1->Items->Add(sr.Name);
                            returnedval = true;
                        }
                    }
                }
            }
            while( FindNext(sr) == 0 );
            FindClose(sr);
        }

        return returnedval;
    }

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

Did you include its header file?

    #include <Masks.hpp>


Gambit