Поиск по маске, копирование, переименование - CMD/BAT - Ответ 3319703

@Echo off
::CHcp 1251 > NUL
setlocal ENABLEDELAYEDEXPANSION  
::Включает обработку с задержкой ...как то так
Set mask=txt  
::^^^^Устанавливаем маску фалов
Set Disc=C    
::^^^^Устанавливаем Первый диск для скаирования
Set N=1       
::^^^^Счетчик для номера в имени файла doc!N!.!mask!
:repeat
::^^^^Точка возврата для сканирования на других дисках
Set I=0       
::Просто Счетчик для кол-ва найденых файлов
  for /f "Delims=*" %%a in ('Dir /s /b "%Disc%:\"') do (
  ::^^^^Цикл, читает строки что выда нам 'Dir /s /b "%Disc%:\"', а именно это будет список всех файлов и папок на диске 
    Set File=%%a
    ::^^^^Присваеваем переменной "File", значение прочитанной циклом строки.  Для работы за самим циклом.
    ::ДалееВызываем Кусок кода.
    Call :Cop   
  )
Echo Files in Total - '%I%'
::^^^^ Выводим колво найденых файлов. На диске
goto !Disc!
::^^^^ Идём к метке с именем диска хранящегося в переменной !Disc!
:C
::^^^^ Метка С именем первого диска
  Set Disc=D
  ::^^^^ Меняем значение переменной Disc, на  следующий диск для сканирования, D
  Echo Disc set to D
  goto repeat
  ::^^^^ Идём к метке с именем repeat
:D
::^^^^ Метка С именем 2го диска
  Set Disc=E
  Echo Disc set to E
  goto repeat
:E
::^^^^ Метка С именем 3го диска
  Set Disc=F
  Echo Disc set to F
  goto repeat
:F
::^^^^ Метка С именем 3го диска
Pause
::^^^^ Пауза
exit
::^^^^ Выход
:Cop
::^^^^Метка за циклом.
If /i Not "!File:~-3,3!"=="!mask!" (Exit /b 0)
::^^^^ Если последние 3 символа файла/папки не имеют значение метки, например txt, без учета регистра. То выходим из под цикла, и возвращаемся в точку отправления, в сам цикл. От туда и были направлены номандой "Call :Cop"
  Set /a I=!I! + 1
  ::^^^^ Так как продолжили, значит 3 символа соответствуют, записываем что файл является файлом с Маски.
  If Not Exist "D:\test\doc.!mask!" (
  ::^^^^ Если файл "doc" существует
    copy /y "!File!" "d:\test\doc.!mask!">NUL 2>NUL 
     ::^^^^  то копируем файл с именем doc.МАСКА
  ) else (
  ::^^^^ Иначе
    :re
    ::^^^^Метка для возврата и увеличение числа N
    If Exist "D:\test\doc(!N!).!mask!" (
      ::^^^^Если файл doc Номер .Маска существует, то
      Set /a N=!N! + 1
      ::^^^^ Увеличиваем номер на 1
      Goto re
      ::^^^^ И возвращаемся к началу
    ) else (    
    ::^^^^ иначе
      copy /y "!File!" "d:\test\doc(!N!).!mask!">NUL 2>NUL 
      ::^^^^ Копируем файл doc Номер.Маска
      Set /a N=!N! + 1
      ::^^^^ И Увеличиваем N, что бы в следующий раз If направил нас сразу на копирование, так как doc ТакойЖеНомер.Маска уже есть.
    )
  )         
Exit /b 0
::^^^^ Выходим из под цикла, и возвращаемся в точку отправления, в сам цикл. От туда и были направлены номандой "Call :Cop"