🚀 go-pugleaf

Hi all,

I need code to find all .exe file on a disk.  I use FindFirstFile / 
FindNextFile and it works but it seems slow.  When i run code its time is 
long (1 min 30 secs for ~2500 files on T60 thinkpad ).  However, if i use 
command line cmd->dir *.exe /s - time is fast (10 secs for ~2500 on T60). 
Can anyone help me make this fast?

My code is:

void TForm1::RecursiveSearch(const AnsiString &p_sPath)
{
   bool bNext;
   HANDLE hFileSearching;
   WIN32_FIND_DATA fdFindFileData;

   AnsiString sPath = p_sPath;

   if (!sPath.IsPathDelimiter(sPath.Length()))
      sPath = AnsiString(sPath + "\\");

   sPath = AnsiString(sPath + "*");

   hFileSearching = FindFirstFile(sPath .c_str(), &fdFindFileData);

   // If the handle is valid, process it
   if (bNext = (hFileSearching != INVALID_HANDLE_VALUE))
   {
      AnsiString szFile;
      do
      {
         // Call self if it finds directory
         if ((FILE_ATTRIBUTE_DIRECTORY & fdFindFileData.dwFileAttributes) &&
             strcmp(fdFindFileData.cFileName,".") && 
strcmp(fdFindFileData.cFileName,".."))
         {
            RecursiveSearch(ExtractFilePath(sPath) + 
fdFindFileData.cFileName);
         }

         szFile = (AnsiString)fdFindFileData.cFileName;
         if (ExtractFileExt(szFile)==".exe")
         {
               Memo1->Lines->Add(szFile);
         }
         // Process next file...
         bNext = FindNextFile(hFileSearching, &fdFindFileData);

         Application->ProcessMessages();
     }
     while (bNext);
   }
   FindClose(hFileSearching);
}


thanks - mataus