🚀 go-pugleaf

"S�ren Zimmermann" <soeren.zimmermann@sef-softec.de> wrote in message 
news:4868dffe$1@newsgroups.borland.com...

> So what I need is an idea of code (or maybe some existing component)
> of how to create a list of all files matching the definitions.

The VCL has a MatchesMask() function that you can use for that, ie:

    #include <Masks.hpp>

    bool __fastcall IsAMatch(const AnsiString &FileName, TStrings *Masks)
    {
        for(int i = 0; i < Masks->Count; ++i)
        {
            if( MatchesMask(FileName, Masks->Strings[i]) )
                return true;
        }
        return false;
    }

    void __fastcall DeleteFiles(const AnsiString &Directory, TStrings 
*IncludedFiles, TStrings *ExcludedFiles)
    {
        AnsiString tmpDir = IncludeTrailingBackslash(Directory);

        TSearchRec sr;
        if( FindFirst(tmpDir + "*.*", faAnyFile, sr) == 0 )
        {
            try
            {
                do
                {
                    if( sr.Attr & faDirectory )
                        DeleteFiles(tmpDir + sr.Name, IncludedFiles, 
ExcludedFiles);

                    else if( IsAMatch(sr.Name, IncludedFiles) && 
!IsAMatch(sr.Name, ExcludedFiles) )
                        DeleteFile(tmpDir + sr.Name);
                }
                while( FindNext(sr) == 0 );
            }
            __finally
            {
                FindClose(sr);
            }
        }
    }

    {
        TStringList *IncludedFiles, *ExcludedFiles;
        ...
        IncludedFiles->Add("*.bmp");
        IncludedFiles->Add("*.gif");
        ExcludedFiles->Add("Default.*");
        ...
        DeleteFiles("C:\\Some directory", IncludedFiles, ExcludedFiles);
    }

> Of course I could use FindFirstFile/FindNextFile

You will have to do that anyway.

> but then I will only get a list of files matching my include files.

Only if you rely on FindFirstFile()'s pattern matching.  Instead, you can 
pass it "*.*" to get all files, and then match them to your search lists 
manually.


Gambit