[文本处理] 请帮忙修改rar批量分割的批处理

::   深度技术论坛《RAR 自动分卷压缩助手》  


@echo off

:: --------------------------------------------------------------------
::          设定文件分割之后放置的目录、设定要分割之后每卷的大小
::    
::    set BBSpath，设定文件分割之后放置的目录，结尾不能有“\”
:: 
::    set size=500k  表示分割成每卷 500k 大小；
::    set size=2m    表示分割成每卷 2M 大小；
::    set size=      没有赋值时，表示不分卷。
::                   注意：“k”、“m”不能大写，一定要小写，
::    
::    注意：赢政BBS 表示的附件可以是512K，实际只能上传 500K 的附件
:: --------------------------------------------------------------------
set size=47m
set BBSpath=%cd%\pieces




:: --------------------------------------------------------------------
::           开始使用 rar.exe 分卷压缩目标文件
:: --------------------------------------------------------------------
:rarfile
:: ----------------------------------------------------
::    修正了文件名中包含“;” 出错的问题 wz
:: ----------------------------------------------------
::FOR /F "delims= " %%i IN ('echo %*') DO set name=%%~ni
::md %BBSpath%
::md %BBSpath%\%name%
::set ext=%~x1





:: -----------------------------------------------------------------
::     -m<n>   设置压缩模式:
::   -m0 存储；-m1 最快；-m2 较快； -m3 标准； -m4   较好； -m5 最好
:: ------------------------------------------------------------------
set level=0


:: --------------------
::     压缩开始了！
:: --------------------
FOR /r %cd%\whole %%j in (*.*) DO (
rar.exe a -ep1 -m%level% -v%size% %%j.rar %%j
)

pause


::start explorer %BBSpath%\%name%
set name=
goto end





:end
set size=
set BBSpath=
set name=
set rarpath=
set level=
复制代码