Перенос файлов из одной папки в другую

@echo off
set source1=\\kvfoss\U1H0\IN
set dest1=P:\U1H0\IN
set source2=P:\U1H0\OUT
set dest2=\\kvfoss\U1H0\OUT
:start
dir %source1% /a-d /b&&move /y %source1%\*.* %dest1%
dir %source2% /a-d /b&&move /y %source2%\*.* %dest2%
ping -n 1 -w 10000 192.168.254.254>NUL
goto :start

dir %source1% /a-d /b&&move /y %source1%\*.* %dest1% 2>nul
dir %source2% /a-d /b&&move /y %source2%\*.* %dest2% 2>nul

@echo off
set In=С:\IN
set Out=C:\OUT
:start
for /f "delims=" %%a in ('dir "%In%\*.*" /b/s 2^>nul') do move /y "%%a" "%Out%"
ping -n 1 -w 10000 192.168.254.254>NUL
goto :start

@echo off
Setlocal EnableDelayedExpansion
Set From=C:\Desktop\Папка
Set To=C:\Users\Desktop\Папка2
 
if not exist "%To%" md "%To%"
 
chcp 1251>nul
Set LanguageFlag=true
 
for /f "delims=" %%A in ('dir /b /s /a "%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
)
 
: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 From=C:\Users\Desktop\папка1
Set To=C:\Users\Desktop\папка2
 
:Start
 
if not exist "%To%" md "%To%"
 
chcp 1251>nul
Set LanguageFlag=true
 
for /f "delims=" %%A in ('dir /b /s /a "%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
)
 
Goto :Start
 
:Pause
ping -n -w %1 192.168.254.254>NUL
 
: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