[文件操作] 批处理makecab如何压缩多级目录？

crist

在网上下载到老毛桃的makecab批处理如下：

@ECHO OFF
SET TT=老毛桃制作的批量文件 CAB 打包工具
COLOR 1F
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
:BEGIN
CLS
ECHO.
ECHO 　　　　　　　╭══════════════════╮
ECHO 　　　　　　　║　　　　　　　　　　　　　　　　　　║
ECHO 　　　╭═══┤ 老毛桃制作的批量文件 CAB 打包工具! ├═══╮
ECHO 　　　║　　　║　　　　　　　　　　　　　　　　　　║　　　║
ECHO 　　　║　　　╰══════════════════╯　　　║
ECHO 　　　║　　　　　　　　　　　　　　　　　　　　　　　　　　║
ECHO 　　　║　　 您是需要将批量文件制作成一个压缩包呢？　　　　 ║
ECHO 　　　║　　 还是想生成 N 个 CAB 格式的单独压缩文件？　　　 ║
ECHO 　　　║　　　　　　　　　　　　　　　　　　　　　　　　　　║
ECHO 　　　║　　　 [1] 将批量文件制作成一个压缩包　　　　　　　 ║
ECHO 　　　║　　　 [2] 将每个文件制作成单独压缩文件　　　　　　 ║
ECHO 　　　║　　　 [3] 将单个文件制作成单独压缩文件　　　　　　 ║
ECHO 　　　║　　　 [Q] 退出　　　　　　　　　　　　　　　　　　 ║
ECHO 　　　║　　　　　　　　　　　　　　　　　　　　　　　　　　║
ECHO 　　　╟──────────────────────────╢
ECHO 　　　║ 注：1. 待压缩文件的父目录需与本程序在同一路径下；　║
ECHO 　　　║　　 2. 待压缩文件所在路径(包括父路径)不许有空格。　║
ECHO 　　　╟══════════════════════════╢
ECHO 　　　║　版权所有：老毛桃　　　供无忧朋友们交流，翻版不究　║
ECHO 　　　╰──────────────────────────╯
ECHO.
SET Choice=
SET /P Choice=　　　　请选择要进行的操作（1/2/3/Q），然后按回车：
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
SET Ds=
SET /P Ds=
IF "%Ds%"=="" goto LOOPA
IF NOT EXIST %Ds% (
SET Err=1
ECHO.
CLS
ECHO 您所输入的路径不存在，请重新输入
ECHO.
GOTO LOOPA
)
IF /I '%Choice%'=='1' GOTO LOOPB
GOTO LOOPC
:LOOPB
CLS
ECHO 请输入需要保存的压缩包文件名，如 Drive.CAB
SET FCab=
SET /P FCab=
IF "%FCab%"=="" goto LOOPB
SET C=%C0% /D DiskDirectoryTemplate=.\ /D CabinetNameTemplate=%FCab%
SET TF=%TEMP%\Files.tmp
IF EXIST %TF% DEL %TF% >NUL
FOR /F %%i in ('dir /b %Ds%') do ECHO %Ds%\%%i >>%TF%
ECHO.
%C% /F %TF%
DEL /F /S /Q %TF% SETUP.INF SETUP.RPT >NUL
GOTO EXIT
:LOOPC
CLS
ECHO 请输入需要保存的 CAB 格式文件所在路径，比如 OutFile
ECHO 如果此路径不存在，将在当前目录下自动创建。
SET OUT=
SET /P OUT=
IF "%OUT%"=="" GOTO LOOPC
FOR /F %%I IN ('CD') DO SET P=%%I\%Ds%
SET C=%C0% /L %OUT% %P%\
ECHO.
FOR /F %%I IN ('dir /B %Ds%') do %C%%%I
GOTO EXIT
:LOOPD
TITLE %TT% - 只压缩一个文件
IF "%Err%"=="" (
CLS
)
ECHO 请输入需要需要压缩的文件所在路径，比如 Driver\NV4_Disp.SYS
ECHO 其中 Driver 与本程序在同一文件夹中
ECHO 您也可以选择按 TAB 键快速输入路径和文件名称，完成后按回车确认
SET FileR=
SET /P FileR=
IF "%FileR%"=="" (
CLS
GOTO LOOPD
)
IF NOT EXIST "%FileR%" (
SET Err=1
ECHO.
CLS
ECHO 您所输入的文件路径不存在，请重新输入
ECHO.
GOTO LOOPD
)
GOTO LOOPE
:LOOPE
CLS
ECHO 请输入需要需要保存的压缩文件路径，比如 Driver\NV4_Disp.CAB
ECHO 如果不输入文件路径，则以 NV4_Disp.SY_ 的形式保存在本程序所在路径
ECHO.
ECHO 注意：如果尝试输入一个不存在的路径信息，压缩程序会出错！
SET FileT=
SET /P FileT=
%C0% %FileR% %FileT%
GOTO EXIT
:EXIT
ECHO.
ECHO.
ECHO.
ECHO 您需要的操作已经全部完成，请核查. . .
ECHO.
ECHO 老毛桃感谢您的使用，如果您有什么好的建议，请 QQ 我！
ECHO.
ECHO.
ECHO 请按任意键返回主菜单. . .
PAUSE >NUL
GOTO BEGIN
复制代码

使用过程中发现将批量文件制作成一个压缩包这个功能不支持多级目录。请问应该怎样使这个批处理支持多级目录呢？
例如我要压缩a文件夹成为a.cab，而a文件夹的结构如下：
a文件夹
   |-b文件夹
      |-c文件

我自己写了一个代码：

@echo off
SET C0=MAKECAB /D CompressionType=LZX /D CompressionMemory=21 /D MaxDiskSize=CDROM /D Cabinet=ON /D Compress=ON /D FolderSizeThreshold=5000000
SET /P Ds=请输入需压缩的文件所在的目录名：
SET /P FCab=请输入需要保存的压缩包文件名：
SET C=%C0% /D DiskDirectoryTemplate=.\ /D CabinetNameTemplate=%FCab%
for /f "delims=" %%a in ('dir /s /b /a-d "%Ds%"') do (
      echo %%a >>tmp.log
)
%C% /F tmp.log
pause
复制代码

错误提示：
tmp.log(括号里是一些数字): ERROR: Duplicate file name: txtsetup.oem already defined at tmp.log(括号里是一些数字)
ERROR: MakeCAB aborted: MaxErrors (20) exceeded

[ 本帖最后由 crist 于 2011-1-10 17:12 编辑 ]

stance

制作CAB压缩包跟压缩单个文件和ISO很不一样，研究明白再说。

[ 本帖最后由 stance 于 2011-1-14 23:00 编辑 ]

cutebe

:利用MAKECAB压缩目录，且保留目录结构。
:用法：直接把目录拖到此批处理图标上。
:特点：甲、一次只支持一个目录，乙、最外层目录会剥离，
:　　　丙、目录名直接作为压缩名，丁、不压缩空目录。
@echo off
if "%~1"=="" goto :eof
setlocal enableDelayedExpansion
cd/d %~dp1
set List=L.lst
cd.>%List%
dir/b/a-d "%~f1">>%List%
for /f "delims=" %%d in ('dir/s/b/ad "%~f1"')do (
　set D1=%%d
　set D1=!d1:%~f1\=!
　echo=.set DestinationDir=!D1!>>%List%
　for /f "delims=" %%f in ('"dir/b/a-d "%%d" 2>nul"')do echo="%%d\%%f">>%List%
)
makecab /f %List% /d CabinetNameTemplate="..\%~n1.CAB"
rd/s/q disk1
del/a/f/q setup.inf;setup.rpt;%List%
复制代码

crist

仅就我截取的那段代码而言，tmp.log只是一个记录文件，它的存放位置应该没影响吧？

crist

我把你的代码拿来测试了一下，好像不行哦
我把程序同目录的一个文件夹wp拉进程序图标

stance

说得对。
后来发现，因为先运行了老毛桃的程序，他的运行环境我没删除，以致当时我运行时正常。后来删除%TF% SETUP.INF SETUP.RPT和%TEMP%路径下的相关文件后，就不能正常运行了。

现在我的系统不知出了什么毛病，连老毛桃的程序都不能正常运行了，暂时没法继续试验了。

以前我用MAKECAB只压缩过批量的单个文件，制作ISO，没做过CAB压缩包。现在我正面临这个需求，也很感兴趣。我要的不是手动操作，要加入批处理程序自动运行。等有新进展再交流。

cutebe

@echo off
if "%~1"=="" goto :eof
setlocal enableDelayedExpansion
cd/d %~dp1
set List=L.lst
cd.>%List%
for /f "delims=" %%f in ('"dir/b/a-d "%~f1" 2>nul"')do echo="%~nx1\%%f">>%List%
for /f "delims=" %%d in ('dir/s/b/ad "%~f1"')do (
　set D1=%%d
　set D1=!d1:%~f1\=!
　echo=.set DestinationDir=!D1!>>%List%
　for /f "delims=" %%f in ('"dir/b/a-d "%%d" 2>nul"')do echo="%%d\%%f">>%List%
)
makecab /f %List% /d CabinetNameTemplate="..\%~n1.CAB"
rd/s/q disk1
del/a/f/q setup.inf;setup.rpt;%List%
复制代码

crist

果然能行，不过能否设置成手动设置待压缩的文件夹？如果待压缩文件夹与程序不在一起，拖放反而是个不方便的设置。

eech

回复 8# crist


    注册到右键，保存批处理到system32文件夹

smss

@Echo off&SetLocal EnableDelayedExpansion
::单文件压缩
makecab /v3 /D CompressionType=LZX /D CompressionMemory=21 "%~1"&set "x=%~1"&set x=!x:~0,-1!&ren "!x!_" "%~n1.cab"
复制代码

::多文件压缩
@Echo off&SetLocal EnableDelayedExpansion
for /f "delims=" %%f in ('dir /a-d/b "%~f1"')do echo "%~f1\%%f">>list.txt
for /f "delims=" %%d in ('dir/s/b/ad "%~f1"')do (
　set D1=%%d
　set D1=!d1:%~f1\=!
　echo=.set DestinationDir=!D1!>>list.txt
　for /f "delims=" %%f in ('"dir/b/a-d "%%d" 2>nul"')do echo "%%d\%%f">>list.txt
)
makecab /f list.txt /d expresstype=mszip /d expressmemory=21 /d maxdisksize=1024000000 /d diskdirectorytemplate="%~dp1." /d cabinetnametemplate=".\%~n1.cab"
del/a/f/q setup.inf setup.rpt list.txt
复制代码