[批处理]简易命令行RAR

@echo off
title 简易命令行RAR      BY:小小沧海
::set RAR=%ProgramFiles%\WinRAR\WinRar.exe
set RAR=%ProgramFiles%\WinRAR\Rar.exe
set file=null
if NOT EXIST "%rar%" echo 【错误】您电脑上没有安装WinRAR，无法使用本程序&echo.&echo 按任意键退出...&pause>nul&exit

:top
cls
echo *******简易命令行RAR***********
echo 请把想要操作的文件拖放至此处回车即可(只支持单文件或文件夹)
echo 如若查看说明则回车
set file=help&set /p file=
if %file%==help goto help
if NOT EXIST %file% echo 输入的文件或文件夹不存在！请重新输入&pause>nul&goto top
for /f "delims=" %%i in ("%file:"=%") do (
    set exname=%%~xi
    ::判断是否有扩展名
    if "%%~xi"=="" (set IsExname=N) else set IsExname=Y
)
::如果为Y，即有扩展名。再判断如果扩展名是rar，则解压，否则去压缩
::如果为N，即无扩展名，则认定为文件夹或无扩展名文件，去压缩文件
if %IsExname%==Y (
    if /i "%exname%"==".rar" (goto unrar) else goto rar
) else goto rar

::=========压缩文件========
:rar
cls
echo ^>^>压缩文件
for /f "delims=" %%i in ("%file:"=%") do (
    "%RAR%" a -r -ep1 -rr5%% -xDesktop__.ini -x*\Desktop__.ini "%%i.rar" "%%i"
)
goto check
::========解压文件==========
:unrar
cls
echo ^>^>解压文件
for /f "delims=" %%i in ("%file:"=%") do (
    md "%%~dpni" 1>nul 2>nul
    "%RAR%" x "%%i" "%%~dpni"
)
::=======检查执行结果========
:check
if %ERRORLEVEL%==0 (echo.&echo 【恭喜】操作成功结束，按任意键返回主菜单...&pause>nul&goto top) else (
    echo.&echo 【注意】操作过程当中出现问题，请仔细查看操作过程提示信息
    echo 按任意键返回主菜单...
    pause>nul&goto top
)
::=======说明文档============
:help
cls
echo.
echo ┏━━━━━━━━━━━━━━━━━说明━━━━━━━━━━━━━━━━━━┓
echo ┃   ¤此BAT是为了病毒横行的机房而做,因为一旦中毒RAR就无法使用,压缩解压都无 ┃
echo ┃     法使用，但是发现命令行版的RAR不受影响依然可以使用，便做此命令行版RAR ┃
echo ┃   ¤特色1:在压缩时会从所有目录中自动屏蔽机房流氓病毒文件Desktop__.ini    ┃
echo ┃   ¤特色2:在压缩时会加入5%的恢复记录，以防RP后可恢复损坏的RAR中的内容     ┃
echo ┃                                ==注意==                                  ┃
echo ┃   ※在我制作测试的RAR 3.90版本中的命令行版RAR无法解压ZIP，7Z等其他格式   ┃
echo ┃     的压缩包文件，所以在设计时如果拖放进ZIP等文件会按照其他文件进行压缩  ┃
echo ┃     处理，而不会去解压。但WinRar不受影响，也可能后续的版本支持了这个功能 ┃
echo ┃   ※注意不能使用最后是.rar的文件夹，因为那样会被判断是压缩包文件而去     ┃
echo ┃     解压这个文件夹，显然会报错，所以要先改名再压缩此文件夹               ┃
echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
echo.
echo 按任意键返回主菜单...
pause>nul&goto top
exit

%ERRORLEVEL%  0 成功
%ERRORLEVEL%  1 失败
set exname只有执行失败ERRORLEVEL才会更改为1，成功不会更改为0
可以使用if "%%i"=="" 来判断变量是否为空