🚀 go-pugleaf

"Safari" <Safari@alloymail.com> wrote in message
news:3F48E683.1000408@alloymail.com...

> if (FindFirst(Path + "*.~*;*.tmp;*.temp;*.wri;*.doc", faAnyFile, Search)

You cannot use multiple masks like that.  You can only use a single mask, in
which case you will have to use "*.*" as the mask instead and then test each
file that is found with the individual file extensions one at a time.  For
example:

    TSearchRec Search;
    if( FindFirst(Path + "*.*", faAnyFile, Search) == 0 )
    {
        do
        {
            if( (Search.Name != ".") && (Search.Name != "..") )
            {
                AnsiString ext = ExtractFileExt(Search.Name);
                if( ext.SubString(1, 2) == ".~" )
                    //...
                else if ( AnsiSameText(ext, ".tmp") )
                    //...
                else if( AnsiSameText(ext, ".temp") )
                    //...
                else if( AnsiSameText(ext, ".wri") )
                    //...
                else if( AnsiSameText(ext, ".doc") )
                    // ...
                //...
            }
        }
        while( FindNext(Search) == 0 );
        FindClose(Search);
    }

Or:

    const char* arr[] = {".tmp", ".temp", ".wri", ".doc"};

    TSearchRec Search;
    if( FindFirst(Path + "*.*", faAnyFile, Search) == 0 )
    {
        do
        {
            if( (Search.Name != ".") && (Search.Name != "..") )
            {
                AnsiString ext = ExtractFileExt(Search.Name);
                bool bFound = false;

                if( ext.SubString(1, 2) == ".~" )
                    bFound = true;
                else
                {
                    for(int x = 0; x < 4; ++x)
                    {
                        if ( AnsiSameText(ext, arr[x]) )
                        {
                            bFound = true;
                            break;
                        }
                    }
                }

                if( bFound )
                    //...
            }
        }
        while( FindNext(Search) == 0 );
        FindClose(Search);
    }

Or, if you have an Enterprise edition of Builder:

    #include <Masks.hpp>

    const char* masks[] = {"*.~*", "*.tmp", "*.temp", "*.wri", "*.doc"};

    TSearchRec Search;
    if( FindFirst(Path + "*.*", faAnyFile, Search) == 0 )
    {
        do
        {
            if( (Search.Name != ".") && (Search.Name != "..") )
            {
                for(int x = 0; x < 5; ++x)
                {
                    if( MatchesMask(Search.Name, masks[x]) )
                    {
                        //...
                        break;
                    }
                }
            }
        }
        while( FindNext(Search) == 0 );
        FindClose(Search);
    }


Gambit


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.512 / Virus Database: 309 - Release Date: 8/19/03