Найти в текущем каталоге все файлы с расширением txt, и переписать их содержимое в один файл - C++ WinAPI - Ответ 729694

WIN32_FIND_DATA FileData;/*Структура с информацией о поиске */
  HANDLE hSearch;/* дескриптор поиска */
  BOOL fFinished = FALSE;/* флаг завершения поиска */
 
  /* Поиск первого .cpp файла в текущем каталоге */
  hSearch = FindFirstFile("*.txt", &FileData);
   /* Если файл не найден*/
  if (hSearch == INVALID_HANDLE_VALUE)
   Memo1->Lines->Add("No .txt files found");
  /*Если файл найден, вывод его имени */
  else
     Memo1->Lines->Add(FileData.cFileName);
  /* Поиск последующих .txt файлов в текущем каталоге */
  while (!fFinished)
  {
   /* Если файл найден, вывод его имени*/
    if (FindNextFile(hSearch, &FileData) != 0 )
       Memo1->Lines->Add(FileData.cFileName);
   /* Если файл не найден вывод информации об ошибке */
    else
       if (GetLastError() == ERROR_NO_MORE_FILES)
        {
            Memo1->Lines->Add("No more .txt files.");
             fFinished = TRUE;
        }
  }
  /* Закрытие дескриптора поиска */
  if (FindClose(hSearch))
      Memo1->Lines->Add("Close search handle");