CODE: [Copy to clipboard]
@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=
将此段