现在 Win 7(+) 都自带压缩/减压的功能,没有必要再调用外部的第三方程序
可以用 oShell = Createobject("Shell.Application") 直接引用
*!*
******************************************
*!*
功
能:压缩文件函数。支持通配符,如*.prg,*.fr?等,支持子文件夹。
*!*
注意:此函数将覆盖已存在的zip文件,使用前应检查zip文件是否存在。
*!*
函数名:Zip(cSourceFile,cZipFileName[,cPassword])
*!*
返回值:逻辑值,压缩成功,返回真。
*!*
参
数:cSourceFile:字符型,准备压缩的文件列表,可以使用通配符,
*!*
不同文件使用|分隔,推荐使用相对路径,可以保存相对的路径信息,
*!*
如果使用绝对路径,则所有路径信息会被删除。
*!*
cZipFileName:字符型,要生成的压缩文件,比如Test.zip,可以使用相对路径或绝对路径。
*!*
类
型:字符型。
*!*
默认值:无。
*!*
示
例:lcZip = Zip("C:\temp\", "C:\Test.ZIP")
&& 压缩C:\temp\所有文件所到C:\Test.ZIP
*!*
******************************************
Function Zip(cSourceFile As String, cZipFileName As String)
*!*
******************************************
*!*
功
能:解压缩单个文件。
*!*
函数名:UnZip(cZipFileName, cDestination)
*!*
返回值:逻辑值,压缩成功,返回真。
*!*
参
数:cZipFileName:字符型,待解压的Zip文件名
*!*
cDestination:字符型,在zip中要解压的文件名
*!*
类
型:字符型。
*!*
默认值:无。
*!*
示
例:lcUnZip = UnZip("C:\Test.ZIP", "C:\Temp\")
&& 解压缩C:\Test.ZIP所有文件所到C:\temp\
*!*
******************************************
Function UnZip(cZipFileName As String, cDestination As String)
如果需要,我贴出源码。