rar分割工具

楼主
我是社区第57位番薯,欢迎点我头像关注我哦~
::   《RAR 自动分卷压缩助手》  第三版
::  -------------------------------- 使用方法 -----------------------------  
::   
::     将需要打包的单个文件或者单个目录,托拽到本文件图标上面,
::     Auto_rar.bat 会自动调用 rar.exe, 将提交的文件或者目录分割成指定大小
::     的分卷rar压缩文件,并保存在指定的目录中。
::     对于提交的 7zip、rar、jpg 文件,Auto_rar.bat 只分卷打包,不压缩。
::  
@echo off
:: --------------------------------------------------------------------
::          设定文件分割之后放置的目录、设定要分割之后每卷的大小
::   
::    set BBSpath,设定文件分割之后放置的目录,结尾不能有“\”
::
::    set size=500k  表示分割成每卷 500k 大小;
::    set size=2m    表示分割成每卷 2M 大小;
::    set size=      没有赋值时,表示不分卷。
::                   注意:“k”、“m”不能大写,一定要小写,
::   
:: --------------------------------------------------------------------
set size=700k
set BBSpath=d:\deepin

if {%1}=={} goto readme
:: --------------------------------------------------------------------
::              定位 rar.exe 目录位置,请确认已经安装了Winrar
:: --------------------------------------------------------------------
del %temp%\Auto_rar_readme.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
:: ----------------------------------------------------
::    修正了文件名中包含“;” 出错的问题 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=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 %date%>>%BBSpath%\%name%\%name%_分割纪录.txt
@echo %time% 分割开始>>%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 %time% 分割完成。>>%BBSpath%\%name%\%name%_分割纪录.txt
@echo. >>%BBSpath%\%name%\%name%_分割纪录.txt
@echo 将以上文件上传到 BBS 吧!>>%BBSpath%\%name%\%name%_分割纪录.txt
@echo. >>%BBSpath%\%name%\%name%_分割纪录.txt
@echo. >>%BBSpath%\%name%\%name%_分割纪录.txt
@echo. >>%BBSpath%\%name%\%name%_分割纪录.txt
@echo. >>%BBSpath%\%name%\%name%_分割纪录.txt
start explorer %BBSpath%\%name%
set name=
goto end

:: --------------------------------------------------------------------
::           系统中找不到 rar.exe 时候的错误提示
:: --------------------------------------------------------------------
:norar
del %temp%\Auto_rar_readme.txt >nul
@echo ================ 错误提示:================>>%temp%\Auto_rar_readme.txt
@echo. >>%temp%\Auto_rar_readme.txt
@echo 在您的电脑中没有找到 rar.exe 。>>%temp%\Auto_rar_readme.txt
@echo 请确认您已经安装了 Winrar 。>>%temp%\Auto_rar_readme.txt
@echo 请确认 %rarpath%rar.exe 文件是否存在。>>%temp%\Auto_rar_readme.txt
@echo 重新安装 Winrar 可以修复这个问题。>>%temp%\Auto_rar_readme.txt
@echo. >>%temp%\Auto_rar_readme.txt
@echo ============== 错误提示结束 ==============>>%temp%\Auto_rar_readme.txt
@echo. >>%temp%\Auto_rar_readme.txt
@echo. >>%temp%\Auto_rar_readme.txt
start notepad.exe %temp%\Auto_rar_readme.txt
goto end
:end
set size=
set BBSpath=
set name=
set rarpath=
set level=



工具下载】
RAR压缩文件分割器.rar (1.52 KB, 下载次数: 18)

rar分割器说明.rar (499 Bytes, 下载次数: 15)


绿色版的哦








分享扩散:

沙发
发表于 2012-2-11 08:29:12
已经压缩的能不能分割呀
板凳
发表于 2012-2-14 13:45:56
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

2回帖数 1关注人数 3284浏览人数
最后回复于:2012-2-14 13:45

返回顶部 返回列表