На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
[!] Как относитесь к модерированию на этом форуме? Выскажите свое мнение здесь
  
> MoveFile , Что то не так.
    Никак чего то не могу вьехать почему перемещает не все файлы.
    Есть 1, 2, 3, 4, 5, 6, 7.
    Перенесло 4, 6, 7.
    Вроде и конструкция простая:
    ExpandedWrap disabled
      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);
        }

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

    Добавлено
    Гы, перемещал файлы эксель, несколько раз выходил из билдера ресетом, в результате файлы повисли в процессах - вот они и не перемещались! После убивания процессов все работает, и все перемещается! Всем спасибо за внимание!
    0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
    0 пользователей:


    Рейтинг@Mail.ru
    [ Script execution time: 0,0150 ]   [ 17 queries used ]   [ Generated: 23.04.24, 18:59 GMT ]