Копирование и перемещение в Командной строке

::(перемещение всех файлов из т1 в т2)
move D:\test1\*.* D:\test2
::(Копирование всех папок из т1 в т2 раньше еще стояло /-Y)
xcopy /V /D /S /E /H D:\test1 D:\test2
::(Удаление т1)
rmdir /s /q D:\test1
::(Создание т1 заново, которая получает почти все св-ва удаленной т1)
mkdir D:\test1
::(Полный доступ для всех к вновь созданной т1)
cacls D:\test1 /G все:f

@echo off
::// В скрипт включена демонстрация поддержки файлов//папок с буквами украинского алфавита
Setlocal EnableDelayedExpansion
::Искомое расширение файлов
Set Ext=*.*
::Откуда копировать
Set From=D:\1
::Куда копировать
Set To=D:\2
 
if not exist "%To%" md "%To%"
 
chcp 1251>nul
Set LanguageFlag=true
 
::// Здесь я заменил -d на d чтобы каталоги учитывались и заменил copy на move, чтоб перемещать внутренности а не копировать.
for /f "delims=" %%A in ('dir /b /s /a:d "%From%\%Ext%"') do (
  if defined LanguageFlag (chcp 866>nul& Set LanguageFlag=)
  echo Found %%~A  
  Call :GetEmptyName "%To%" "%%~nxA" NewName
  Echo --^> %To%\!NewName!
  move "%%~A" "%To%\!NewName!" >nul
)
:://Здесь я убрал паузу, чтобы пользователь вообще ничего не замечал
:://pause
:://goto :eof
 
:GetEmptyName %1-Folder %2-FileName %3-Var.Return %4-Optional.System.Num
if "%~4"=="" (
    Set "NewFileName=%~2"
  ) else (
    Set "NewFileName=%~n2(%~4)%~x2"
)
if exist "%~1\%NewFileName%" (
    Set Num=%~4
    Set /A Num+=1
    Call :GetEmptyName "%~1" "%~2" "%~3" "!Num!"
  ) else (
    Set "%~3=%NewFileName%"
    Exit /B
)
Exit /B

@echo off
::// В скрипт включена демонстрация поддержки файлов//папок с буквами украинского алфавита
Setlocal EnableDelayedExpansion
::Искомое расширение файлов
Set Ext=*.*
::Откуда копировать
Set From=D:\1
::Куда копировать
Set To=D:\2
 
if not exist "%To%" md "%To%"
 
chcp 1251>nul
Set LanguageFlag=true
 
::// Здесь я заменил -d на d чтобы каталоги учитывались и заменил copy на move, чтоб перемещать внутренности а не копировать.
for /f "delims=" %%A in ('dir /b /s /a:d "%From%\%Ext%"') do (
  if defined LanguageFlag (chcp 866>nul& Set LanguageFlag=)
  echo Found %%~A  
  Call :GetEmptyName "%To%" "%%~nxA" NewName
  Echo --^> %To%\!NewName!
  move "%%~A" "%To%\!NewName!" >nul
)
:://Здесь я убрал паузу, чтобы пользователь вообще ничего не замечал
:://pause
:://goto :eof
 
:GetEmptyName %1-Folder %2-FileName %3-Var.Return %4-Optional.System.Num
if "%~4"=="" (
    Set "NewFileName=%~2"
  ) else (
    Set "NewFileName=%~n2(%~4)%~x2"
)
if exist "%~1\%NewFileName%" (
    Set Num=%~4
    Set /A Num+=1
    Call :GetEmptyName "%~1" "%~2" "%~3" "!Num!"
  ) else (
    Set "%~3=%NewFileName%"
    Exit /B
)
Exit /B

@echo off
::// В скрипт включена демонстрация поддержки файлов//папок с буквами украинского алфавита
Setlocal EnableDelayedExpansion
::Искомое расширение файлов
Set Ext=*.*
::Откуда копировать
Set From=D:\1; D:\3; D:\5 и тд.
::Куда копировать
Set To=D:\2; D:\4; D:\6 и тд.

@echo off
::// В скрипт включена демонстрация поддержки файлов//папок с буквами украинского алфавита
Setlocal EnableDelayedExpansion
::Искомое расширение файлов
Set Ext=*.*
::Откуда копировать
Set From=D:\1
::Куда копировать
Set To=D:\2
 
if not exist "%To%" md "%To%"
 
chcp 1251>nul
Set LanguageFlag=true
 
::// Здесь я заменил -d на d чтобы каталоги учитывались и заменил copy на move, чтоб перемещать внутренности а не копировать.
for /f "delims=" %%A in ('dir /b /s /a:d "%From%\%Ext%"') do (
  if defined LanguageFlag (chcp 866>nul& Set LanguageFlag=)
  echo Found %%~A  
  Call :GetEmptyName "%To%" "%%~nxA" NewName
  Echo --^> %To%\!NewName!
  move "%%~A" "%To%\!NewName!" >nul
)
:://Здесь я убрал паузу, чтобы пользователь вообще ничего не замечал
:://pause
:://goto :eof
 
:GetEmptyName %1-Folder %2-FileName %3-Var.Return %4-Optional.System.Num
if "%~4"=="" (
    Set "NewFileName=%~2"
  ) else (
    Set "NewFileName=%~n2(%~4)%~x2"
)
if exist "%~1\%NewFileName%" (
    Set Num=%~4
    Set /A Num+=1
    Call :GetEmptyName "%~1" "%~2" "%~3" "!Num!"
  ) else (
    Set "%~3=%NewFileName%"
    Exit /B
)
Exit /B

Setlocal EnableDelayedExpansion

move "%%~A" "%To%\!NewName!" >nul

call move "%%%%~A" "%%To%%\%%NewName%%" >nul

Call :GetEmptyName "%~1" "%~2" "%~3" "!Num!"

Call Call :GetEmptyName "%%~1" "%%~2" "%%~3" "%%Num%%"