批量解压rar文件

@echo on
color 0a
title 批量解压rar文件
@pause
rem 在注册表中读取winrar的安装目录

if EXIST tmp.tmp del tmp.tmp
reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" /v path>>tmp.tmp
for /f "tokens=1,2,* skip=4 delims= " %%j in ('more tmp.tmp') do set WinRAR=%%l
if EXIST tmp.tmp del tmp.tmp

for /f "delims=" %%i in ('dir /b') do  "%WinRAR%\rar" a -r %%~ni.rar %%i
exit