RAR分割工具

set size=500k   ;设置默认大小
set BBSpath=D:\分割        ;设置默认存放位置
if {%1}=={} goto readme
::              定位 rar.exe 目录位置，请确认已经安装了Winrar
del %temp%\RAR分割.txt >nul
del %temp%\$cd$.txt >nul
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 norar
::           开始使用 rar.exe 分卷压缩目标文件
:rarfile
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=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 ******************** %name% 分割纪录 ******************** >>%BBSpath%\%name%\%name%_分割纪录.txt
@echo. >>%BBSpath%\%name%\%name%_分割纪录.txt
@echo 分割的原始文件路径为：>>%BBSpath%\%name%\%name%_分割纪录.txt
@echo ├→ %1>>%BBSpath%\%name%\%name%_分割纪录.txt
@echo │ >>%BBSpath%\%name%\%name%_分割纪录.txt
@echo 分割生成了以下文件，每个文件大小为 %size% ：>>%BBSpath%\%name%\%name%_分割纪录.txt
::     压缩开始了！
"%rarpath%rar.exe" a -ep1 -m%level% -v%size% %BBSpath%\%name%\%name%.rar %1
@FOR /r %BBSpath%\%name% %%I in (*.rar) DO (
@echo ├─ %%I>>%BBSpath%\%name%\%name%_分割纪录.txt
)
@echo │ >>%BBSpath%\%name%\%name%_分割纪录.txt
@echo *******************%name% 记录结束*********************** >>%BBSpath%\%name%\%name%_分割纪录.txt
@echo. >>%BBSpath%\%name%\%name%_分割纪录.txt
start explorer %BBSpath%\%name%
set name=
goto end
::           系统中找不到 rar.exe 时候的错误提示
:norar
del %temp%\RAR分割.txt >nul
@echo ================ 错误提示：================>>%temp%\RAR分割.txt
@echo. >>%temp%\RAR分割.txt
@echo 在您的电脑中没有找到 rar.exe 。>>%temp%\RAR分割.txt
@echo 请确认您已经安装了 Winrar 。>>%temp%\RAR分割.txt
@echo 重新安装 Winrar 可以修复这个问题。>>%temp%\RAR分割.txt
@echo. >>%temp%\RAR分割.txt
@echo ============== 错误提示结束 ==============>>%temp%\RAR分割.txt
start notepad.exe %temp%\RAR分割.txt
goto end
::                    没有提交文件时，弹出的使用说明
:readme
del %temp%\RAR分割.txt >nul
@echo. >>%temp%\RAR分割.txt
@echo ******************************使用注意******************************>>%temp%\RAR分割.txt
@echo. >>%temp%\RAR分割.txt
@echo 本工具是基于winrar的,请确保你已经安装了winrar，否则无法使用该工具。>>%temp%\RAR分割.txt
@echo ****************************** 使用方法 ***************************** >>%temp%\RAR分割.txt
@echo. >>%temp%\RAR分割.txt
@echo    把需要分割的单个文件或者单个文件夹，直接托拽到该工具上，可参考图示>>%temp%\RAR分割.txt
@echo    分割工具会自动调用 rar.exe， 将提交的文件或者目录分割成指定大小>>%temp%\RAR分割.txt
@echo    的分卷rar压缩文件，并保存在指定的目录中。 >>%temp%\RAR分割.txt
@echo    对于提交的 7zip、rar、jpg 文件，分割工具只分卷打包，不做压缩。 >>%temp%\RAR分割.txt
@echo. >>%temp%\RAR分割.txt
@echo ****************************** 友情提示 ***************************** >>%temp%\RAR分割.txt
@echo    默认分卷大小为500k，分割后保存在D:\分割，并自动打开该目录！>>%temp%\RAR分割.txt
start notepad.exe %temp%\RAR分割.txt
goto end
:end
set size=
set BBSpath=
set name=
set rarpath=
set level=