压缩当前文件夹下的文件（单个文件压缩）

@echo off

mode con lines=30 cols=60
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
cd /d "%~dp0"

::7zip软件的安装路径
set ZIP="C:\Program Files\7-Zip\7z.exe"

c:
cd \
::要压缩的源文件的路径，如C盘下的debug文件夹
cd c:\Users\limy\Desktop\debug
dir /s /a /b /a-d >>c:\Users\limy\Desktop\num1.txt
::删除在num1中已压缩的7z文件名（避免重复压缩）重定向到num2中
findstr /v ".7z" c:\Users\limy\Desktop\num1.txt>>c:\Users\limy\Desktop\num2.txt
::根据num2中的文件路径单个压缩文件,返回成功代码则删除
for /f %%X in (c:\Users\limy\Desktop\num2.txt) do (%ZIP% a "%%~dpnX.7z" "%%X"
  if errorlevel=0 del %%X
 )
::删除两个num文件，保证只保存最新的文件名
del c:\Users\limy\Desktop\num1.txt
del c:\Users\limy\Desktop\num2.txt