批量文件 CAB 打包批处理

Tag: Windows 
Posted on 2020-07-22

@ECHO OFF
COLOR 2F
TITLE 批量文件 CAB 打包工具
Set TF=files.txt
CLS
Echo.
Echo          ╭════════════════╮
Echo         ║                 ║
Echo     ╭═══┤       批量文件 CAB 打包工具      ├═══╮
Echo    ║    ║                 ║    ║
Echo    ║    ╰═════════════════╯    ║
Echo    ║ 1. 待压缩文件的父目录需与本程序在同一路径下;     ║
Echo    ║ 2. 待压缩文件所在路径(包括父路径)不许有空格。     ║
Echo    ║ 3. 如果你输入的路径或文件名中有空格,       ║
Echo    ║  请在外边用上引号                ║
Echo    ╰══════════════════════════╯
Echo.
Echo 请输入需压缩的文件所在的目录名,如 Files
Echo.
Set Ds=
Set /P Ds=请输入:
Echo.
Echo 请输入需要保存的压缩包文件名,如 Files.cab
Echo.
Set FCab=
Set /P FCab=请输入:
CLS
Echo.
Echo          ╭════════════════╮
Echo         ║                 ║
Echo     ╭═══┤       批量文件 CAB 打包工具      ├═══╮
Echo    ║    ║                 ║    ║
Echo    ║    ╰═════════════════╯    ║
Echo    ║                          ║
Echo    ║                          ║
Echo    ║                      压缩中......                 ║
Echo    ║                          ║
Echo    ╰══════════════════════════╯
Echo.
If Exist "%TF%" Del "%TF%" >NUL
For %%i In (%Ds%) Do Set FP=%%~dpi
SETLOCAL ENABLEDELAYEDEXPANSION
rem 启用延迟的环境变量
For /f "delims=" %%i In ('dir %Ds% /s /b /a-d') Do (
Set str=%%i
Set "str=!str:%FP%%Ds%\=!"
rem %PATH:str1=str2%这个操作就是把变量%PATH%的里的str1全部用str2替换
rem 在延迟的环境变量中用!str!来表示%str%
>>%TF% Echo "%%i" "!str!"
)
ENDLOCAL
MAKECAB /D CompressionType=LZX /D CompressionMemory=21 /D MaxDiskSize=CDROM /D Cabinet=On /D Compress=On /D FolderSizeThreshold=5000000 /D DiskDirectoryTemplate=.\ /D CabinetNameTemplate=%FCab% /F %TF%
@del /q files.txt
@del /q setup.inf
@del /q setup.rpt
@echo 压缩完成,按任意键退出...&pause > nul
 评论
张三
orz
李四
orz orz
李小四
orz orz orz
张小三
orz orz orz orz
  搜索
  Tags
全部   Ubuntu   Linux   Python   Windows   Shell   转发   浏览器   js   KMS   循环   MySQL   字体   html   css   DNS   电源   多线程   反向代理   重定向   原创   WinSCP   随机   随机数   VSCode   venv   vbs   多进程   远程调试   字典   生活   激活   线程池   日志   数据库   网卡   截取字符   进度条   安装   进程池   领带   uuid   tc   IP   iostat   import   GitHub   dpkg   DHCP   curl   crx   CPU   cloud-init   Chrome   BBR   Apt   iptables   Kitsunebi   subprocess   SSH   SoftEther   Set   samba   pyflakes   pip   Office   Nginx   NextCloud   List   libreoffice   kvm   Adobe  
  功能
You can put anything you want inside of these side widgets. They are easy to use, and feature the new Bootstrap 4 card containers!