@echo off
rem 有问题,可加QQ956535081及时沟通
set "exefile=C:\Program Files\WinRAR\WinRAR.exe"
if not exist "%exefile%" (echo;"%exefile%" not found&goto end)
for /f "delims=" %%a in ('dir /a-d/b/s *.rar ') do (
    echo;"%%a"
    "%exefile%" x -ibck -y "%%a" "%%~dpa#%%~na\"
    if not exist "%%~dpa%%~na\" md "%%~dpa%%~na\"
    for /f "delims=" %%b in ('dir /a-d/b/s "%%~dpa#%%~na\" 2^>nul') do (
        call :loop "%%b" "%%~dpa%%~na\" "%%~na"
    )
    rd /s /q "%%~dpa#%%~na\"
)
:end
cd /d "%~dp0"
pause
exit
:loop
set n=2
set "newfile=%~2\%~3%~x1"
:check
if not exist "%newfile%" (goto break)
set "newfile=%~2\%~3-%n%%~x1"
set /a n+=1
goto check
:break
move "%~1" "%newfile%"
exit/b
复制代码

@echo off
set "path=%path%;C:\Program Files\WinRAR\"
for /f "delims=" %%i in ('dir /b /a-d *.rar') do (
	set /p=urar %%i  <nul
	unrar e -ep -or -ad "%%i" >nul 2>nul
	call :renFile "%%~i"
	echo done.
)
pause&exit
:renFile
set "key=1"
for /f "delims=" %%a in ('dir /b /a-d "%~n1" 2^>nul') do (
	rename "%~n1\%%a" "%~n1%%~xa" 2>nul || (
		call rename "%~n1\%%a" "%~n1-%%key%%%%~xa" 
		set /a "key+=1"
	)
)
复制代码