Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=421277&view=findpost&p=3845645 Tue, 23 Mar 2021 08:07:57 +0000 MoveFile https://forum.sources.ru/index.php?showtopic=421277&view=findpost&p=3845645 Есть 1, 2, 3, 4, 5, 6, 7.
Перенесло 4, 6, 7.
Вроде и конструкция простая:
    AnsiString sRabFile, sDelFile;
    TSearchRec tFileInfo;
    sRabFile = RabDir + "\*.*";
    if(FindFirst(sRabFile, faAnyFile, tFileInfo) == 0)
      {
      do
        {
        if((tFileInfo.Name != ".") & (tFileInfo.Name != "..") & (tFileInfo.Size != 0))
          {
          sRabFile = RabDir + "\" + tFileInfo.Name;
          sDelFile = DelDir + "\" + tFileInfo.Name;
          if(MoveFile(sRabFile.c_str(), sDelFile.c_str()))
            {// Если в DelDir есть такой же файл, то не перенесет.
            ShowMessage("Перенесло!");
            }
          }
        }
      while(FindNext(tFileInfo) == 0);
      }

Просматривает все файлы - переносит не все...

Добавлено
Гы, перемещал файлы эксель, несколько раз выходил из билдера ресетом, в результате файлы повисли в процессах - вот они и не перемещались! После убивания процессов все работает, и все перемещается! Всем спасибо за внимание!]]> Fan_Tik Borland C++ Builder/Turbo C++ Explorer