@Echo Off
Set TT=老毛桃制作的批量文件 CAB 打包工具
Set TS=如果你输入的路径或文件名中有空格，请在外边用上引号
COLOR 2F
TITLE %TT%
Set ERR=
Set C0=MAKECAB /D CompressionType=LZX /D CompressionMemory=21 /D MaxDiskSize=CDROM /D Cabinet=On /D Compress=On /D FolderSizeThreshold=5000000
If Not '%Choice%'=='' SET Choice=%Choice:~0,1%
If /I '%Choice%'=='1' GOTO LOOPA
If /I '%Choice%'=='2' GOTO LOOPA
If /I '%Choice%'=='3' GOTO LOOPD
If /I '%Choice%'=='Q' EXIT
Goto BEGIN
:LOOPA
If /I '%Choice%'=='1' (
TITLE %TT% - 制作成一个压缩包
)
If /I '%Choice%'=='2' (
TITLE %TT% - 制作成多个单独压缩文件
)
If "%Err%"=="" (
CLS
)
Echo 请输入需压缩的文件所在的目录名，如 Files
Echo 注意：1.%TS%
Echo.
Echo 请输入：
Set Ds=
Set /P Ds=
If %Ds%A==A Goto LOOPA
If Not Exist %Ds% (
Set Err=1
Echo.
CLS
Echo 您所输入的路径不存在，请重新输入
Echo.
Echo 请输入：
Goto LOOPA
)
If /I '%Choice%'=='1' GOTO LOOPB
Goto LOOPC
:LOOPB
CLS
Echo 请输入需要保存的压缩包文件名，如 Drive.CAB
Echo 注意：1.%TS%
Echo.
Echo 请输入：
Set FCab=
Set /P FCab=
If %FCab%A==A Goto LOOPB
Set C=%C0% /D DiskDirectoryTemplate=.\ /D CabinetNameTemplate=%FCab%
Set TF=%TEMP%\Files.tmp
If Exist "%TF%" Del "%TF%" >NUL
For %%i In (%Ds%\*.*) Do Echo "%%i" >>%TF%
%C% /F %TF%
Del /F /S /Q "%TF%" SETUP.INF SETUP.RPT >NUL
Goto Exit
:LOOPC
CLS
Echo 请输入需要保存的 CAB 格式文件所在路径，比如 OutFile
Echo 如果此路径不存在，将在当前目录下自动创建。
Echo 注意：1.%TS%
Echo.
Echo 请输入：
Set OUT=
Set /P OUT=
If %OUT%A==A Goto LOOPC
For /F "delims=" %%I In ('CD') DO SET P=%%I
For %%i In (%Ds%\*.*) Do %C0% /L %OUT% "%P%\%%i"
Goto Exit
:LOOPD
TITLE %TT% - 只压缩一个文件
If "%Err%"=="" (
CLS
)
Echo 请输入需要压缩的文件所在路径，比如 Driver\NV4_Disp.SYS
Echo 其中 Driver 与本程序在同一文件夹中
Echo 您也可以选择按 TAB 键快速输入路径和文件名称，完成后按回车确认
Echo.
Echo 注意：1.%TS%
Echo.
Echo 请输入：
Set FileR=
Set /P FileR=
If %FileR%A==A (
CLS
Goto LOOPD
)
If Not Exist %FileR% (
Set Err=1
Echo.
CLS
Echo 您所输入的文件路径不存在，请重新输入
Echo.
Echo 请输入：
Goto LOOPD
)
Goto LOOPE
[复制链接]
IP卡
狗仔卡
楼主
显身卡
发表于 2008-9-27 22:11:40
