🚀 go-pugleaf

"Greg Stantin" <gstantin@stantonassoc.com> wrote in message
news:3fc98016@newsgroups.borland.com...

> it won't parse into sub-directories.  I guess i am missing something
still.

It is the exact same code that you originally had, just with DeleteFile()
added but is otherwise the same logic as earlier.  So if you are not able to
recurse into subfolders, that is a problem that your original code had all
along.  And in fact, there is a problem with your original code - you are
specifically omitting directories from your Mask, so the test for
FILE_ATTRIBUTE_DIRECTORY will always fail because FindFirst/NextFile() will
never find any directories, only files.  You must specify a Mask of "*.*" in
order for FindFirstFile() to include folders in the search, and then test
the file extensions manually.  For example:

    // notice the "*" is removed from the mask
    DeleteFilesInDirectory("C:\\temp\\", ".old");

    void TForm1::DeleteFilesInDirectory(const String &Directory, const
String &Mask)
    {
        WIN32_FIND_DATA Data;
        HANDLE hFile = FindFirstFile((Directory + "*.*").c_str(), &Data);

        if( hFile != INVALID_HANDLE_VALUE )
        {
            do
            {
                String sName(Data.cFileName);
                if( (sName != ".") && (sName != "..") )
                {
                    if( (Data.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
!= 0 )
                        DeleteFilesInDirectory(Directory + sName + "\\",
Mask);
                    else
                    {
                        if( AnsiSameText(ExtractFileExt(sName), Mask) )
                        {
                            //DeleteFile(Directory + sName);
                            ListBox1->Items->Add(Directory + sName);
                        }
                    }
                }
            }
            while( FindNextFile(hFile, &Data) );
            FindClose(hFile);
        }
    }


Gambit