Поиск по маске, копирование, переименование

@echo off
md d:\test
xcopy /y /h "C:\, D:\, E:\, F:\ *.txt" "d:\test\"
pause

@echo off
set copyfolder=D:\test
set mask=*.mytxt
if not exist "%copyfolder%" md "%copyfolder%"
for /f "skip=1" %%i in ('wmic logicaldisk where drivetype^=3 get name') do call :f1 %%i\
goto :eof
:f1
for /r %1 %%j in (.) do call :f2 "%%j"
exit /b
:f2
set n=%~1
set n=%n:~0,-1%
echo %n%
if /i "%copyfolder%\" equ "%n%" exit /b
for /f "tokens=2 delims=\" %%q in ("%n%") do (set b=%%q)
if /i "%b%" equ "Recycled" exit /b
for /f  "delims=" %%i in ('dir "%n%*.mytxt" /a-d /b 2^>nul ') do call :f3 "%n%" "%%~ni" "%%~xi"
exit /b
:f3
set k=0
set fpath=%~1
set fname=%~2
set fext=%~3
if exist "%copyfolder%\%fname%%fext%" goto :f3_2
copy /y "%fpath%%fname%%fext%" "%copyfolder%\%fname%%fext%" 1>nul 2>nul
exit /b
:f3_2
set /a k=%k%+1
if exist "%copyfolder%\%fname%(%k%)%fext%" goto :f3_2
copy /y "%fpath%%fname%%fext%" "%copyfolder%\%fname%(%k%)%fext%" 1>nul 2>nul
exit /b

@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"

del log.txt
for /f "skip=1" %%i in ('wmic logicaldisk where drivetype^=3 get name') do call :f1 %%i\
goto :eof
:f1
echo %1>>log.txt
exit /b