FindFirstFile/FindNextFile

//---------------------------------------------------------------------------
// поиск и копирование txt файлов в указанной директории.
void __fastcall TForm4::Button2Click(TObject *Sender)
{
    AnsiString fileTo, f4, pathWithNameFileWhere, pathWithNameFileGo;
    bool DontOverwrite = true;
    int ErrorCode;
    bool cont = true;
 
    //путь нашей папки в которую будем копировать
    AnsiString s1 = Form3->DirectoryListBox1->GetItemPath(Form3->DirectoryListBox1->ItemIndex);
    // Путь к папке
    AnsiString s2 = Form3->Edit1->Text; // название папки
    fileTo = s1 + "\\"+ s2;  //
    // путь директории в которой будем искать
    f4 = Form4->DirectoryListBox1->GetItemPath(Form4->DirectoryListBox1->ItemIndex);
 
 
    f4 = StringReplace(f4, "\\", "\\\\", TReplaceFlags()<<rfReplaceAll);
    fileTo =  StringReplace(fileTo, "\\", "\\\\", TReplaceFlags()<<rfReplaceAll);
 
    // поиск  txt
    WIN32_FIND_DATA FindFileData;
    HANDLE hFind;
 
    hFind = FindFirstFile((f4 + "\\*.txt").c_str(), &FindFileData);
 
    //  где ищем // путь фала с именем
    pathWithNameFileWhere = fileTo + "\\\\" + FindFileData.cFileName;
    //  куда будет копировать // путь фала с именем
    pathWithNameFileGo = f4 + + "\\\\" + FindFileData.cFileName;
 
 
    if (hFind == INVALID_HANDLE_VALUE)
    {
        ErrorCode = GetLastError();
        if (ErrorCode == ERROR_FILE_NOT_FOUND)
        {
            MessageDlg("There are no files ..." ,mtError, mbOKCancel, 0);
        }
        else
        {
            //MessageDlg("FindFirstFile() returned error code ",mtError, mbOKCancel, 0);
        }
        cont = false;
    }
    else
    {
        CopyFile(pathWithNameFileGo.c_str(), pathWithNameFileWhere.c_str(), false);
    }
 
    if (cont)
    {
        while (FindNextFile(hFind, &FindFileData))
        {
            CopyFile(pathWithNameFileGo.c_str(), pathWithNameFileWhere.c_str(), false);
        }
        if (!FindClose(hFind))
        {
            ErrorCode = GetLastError();
            MessageDlg("FindClose() returned error code ",mtError, mbOKCancel, 0);
        }
    }
    FindClose(hFind);
    Form4->Close();
 
}
//---------------------------------------------------------------------------