zqz0012005

第三方压缩工具不想找。可以用vbs实现（不是很完美）

'&@cls&cscript -nologo -e:vbs "%~f0"&exit/b
strSrc = "C:\aaa.rom" '需要被压缩的文件
strZip = "C:\test.zip" 'zip压缩文件
strDst = "\roms" 'zip压缩文件中的指定目录
set ws = CreateObject("WScript.Shell")
set oShell = CreateObject("Shell.Application") 
set oZip = oShell.NameSpace(strZip & strDst)
oZip.CopyHere strSrc, 4+16 '参数设置无效，还是有进度条（但正好为异步等待提供了一个检验窗口）
do 'CopyHere方法似乎是异步的，必须等待以便复制完成。
wsh.sleep 200
loop while ws.AppActivate("正在压缩...")
复制代码

zqz0012005

改进了一下，根据已经复制的大小判断是否全部压缩完成

'&@cls&cscript -nologo -e:vbs "%~f0"&exit/b
strSrc = "C:\aaa.rom" '需要被压缩的文件
strZip = "C:\test.zip" 'zip压缩文件
strDst = "\roms" 'zip压缩文件中的指定目录
set fso = CreateObject("Scripting.FileSystemObject")
intSrcSize = fso.GetFile(strSrc).Size
strFile = fso.GetFileName(strSrc)
set oShell = CreateObject("Shell.Application")
'oShell.ShellExecute "regsvr32", "/s zipfldr.dll" '重新注册可能被优化掉的zipfldr.dll
'wsh.sleep 1000
set oZip = oShell.NameSpace(strZip & strDst)
oZip.CopyHere strSrc, 4+16
do
wsh.sleep 200
loop while oZip.ParseName(strFile).Size < intSrcSize
复制代码

zqz0012005

奇怪了，今天在某个网吧上网，发现CopyHere的参数设置是有效的。但我上次在公司电脑上测试不管参数设置成什么，还是会出现进度条。

大家帮忙测试一下。