xczxczxcz

回复 1# batbatbatbat

Win10 x64  WinRAR 5.6.1 环境，其它环境自行修改。

@echo off & cd /d "%~dp0"
rem 获取RAR安装位置
reg query "HKLM\SOFTWARE\WinRAR" /v exe64>nul 2>nul && (
	for /f "tokens=2*" %%a in ('reg query "HKLM\SOFTWARE\WinRAR" /v exe64') do set "R_Path=%%b"
) || for /f "tokens=2*" %%a in ('reg query "HKLM\SOFTWARE\WOW6432Node\WinRAR" /v exe32') do set "R_Path=%%b"

for /f "delims=" %%m in ("%R_Path%\..") do set "RarPath=%%~fm"

REM 假定RAR密码为 123456
md "%temp%\RARtmp" 2>nul
for /f "delims=" %%a in ('dir/a-d/b "*.rar"') do (
	"%RarPath%\rar.exe" e ".\%%a" "%temp%\RARtmp\" -hp123456
	for /f "delims=" %%i in ('dir/a-d/b "%temp%\RARtmp\"') do "%RarPath%\rar.exe" rn ".\%%a" %%i "%%~na%%~xi"
	del /q/f "%temp%\RARtmp\*"
)
rd /s/q "%temp%\RARtmp"
pause
复制代码

======================================