如何调用rar.exe分卷压缩并添加注释？ - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

@echo off
set size=500k
set BBSpath=c:\bbsup

if {%1}=={} goto readme

echo:: --------------------------------------------------------------------
echo::             定位 rar.exe 目录位置，请确认已经安装了Winrar
echo:: --------------------------------------------------------------------
reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\.rar\ShellNew" /v "FileName">%temp%\$cd$.txt
for /f "skip=4 tokens=3 delims= " %%i in (%temp%\$cd$.txt) do set rarpath=%%~dpi
del %temp%\$cd$.txt

if exist "%rarpath%rar.exe" goto rarfile
if exist "%ProgramFiles%\winrar\rar.exe" set rarpath=%ProgramFiles%\winrar\
if not exist "%ProgramFiles%\winrar\rar.exe" goto exit

echo:: --------------------------------------------------------------------
echo::          开始使用 rar.exe 分卷压缩目标文件
echo:: --------------------------------------------------------------------
:rarfile
FOR /F "delims=" %%i IN ('echo %*') DO set name=%%~ni
md %BBSpath%
md %BBSpath%\%name%
set ext=%~x1
echo:: -----------------------------------------------------------------
echo::    -m<n> 设置压缩模式:
echo:: -m0 存储；-m1 最快；-m2 较快； -m3 标准； -m4 较好； -m5 最好
echo:: ------------------------------------------------------------------
set level=5
if {%ext%}=={.7z} set level=0
if {%ext%}=={.7Z} set level=0
if {%ext%}=={.rar} set level=0
if {%ext%}=={.RAR} set level=0
if {%ext%}=={.jpg} set level=0
if {%ext%}=={.JPG} set level=0

echo:: --------------------
echo::    压缩开始了！
echo:: --------------------
[color=Red]"%rarpath%rar.exe" a  -ep1 -m%level% -v%size% %BBSpath%\%name%\%name%.rar %1[/color]

:end
set size=
set BBSpath=
set name=
set rarpath=
set level=