🚀 go-pugleaf

Hi all,

I am trying to use SHGetSpecialFolderPath API function to get my Internet
Explorer History folder location and erase all its contents as shown below,
although I have a really wired problem, which is when I try to delete the
history folder contents, sometime it erases all of its contents, sometime
not and sometime it erase some file and leave other files!

So can someone please tell me where is my mistake and why I face such a
weird behavior.

Thanks

void __fastcall TForm1::BrowserHistoryCleaner()
{
        CHAR szPath[MAX_PATH];

        if(SHGetSpecialFolderPath(NULL, szPath, CSIDL_HISTORY, FALSE))
        {  HCSearchForFiles(szPath, "*.*");
        }
}
//--------------------------------------------------------------------------
-
bool __fastcall TForm1::HCSearchForFiles(const AnsiString &Folder, const
AnsiString &MaskToFind)
{
        WIN32_FIND_DATA wfd;
        HANDLE hFind;
        String sFullPath, sFindFilter, sCurrentFolder;
        bool Result = true;

        sCurrentFolder = IncludeTrailingBackslash(Folder);
        sFindFilter = sCurrentFolder + "*.*";

        hFind = FindFirstFile(sFindFilter.c_str(), &wfd);
        if( hFind != INVALID_HANDLE_VALUE )
        {
            do
            {
                if( (_tcscmp(wfd.cFileName, _T(".")) == 0) ||
(_tcscmp(wfd.cFileName, _T("..")) == 0) )
                    continue;

                sFullPath = sCurrentFolder + String(wfd.cFileName);

                if( wfd.dwFileAttributes & FILE_ATTRIBUTE_READONLY)
                {
                    Result = SetFileAttributes(sFullPath.c_str(),
wfd.dwFileAttributes & ~FILE_ATTRIBUTE_READONLY);
                    if(!Result)
                        break;
                }

                if( wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY )
                {
                    Result = HCSearchForFiles(sFullPath, MaskToFind);
                    if(Result)
                        Result = RemoveDirectory(sFullPath.c_str());
                }
                else
                {
                    if(MatchesMask(wfd.cFileName, MaskToFind))
                    {
                          Result = DeleteFile(sFullPath);
                    }
                }
            }
            while((Result) && (FindNextFile(hFind, &wfd)));
            FindClose(hFind);
        }

  return Result;
}
//--------------------------------------------------------------------------
--