【源码】一个用于对文件进行压缩/解压的函数 - Office中国论坛/Access中国论坛

'=======================================================================================================
'函数名称： CompressFile
'功能描述：压缩或解压缩文件，压缩文件格式为cab，使用Windows自带功能，cab为Windows安装程序中使用的压缩
' 格式，无需安装ZIP、RAR等压缩软件即可使用此函数进行压缩解压，并且cab格式基本上所有的压缩软件
' 均能打开。
'输入参数： SourceFile 必需的，源文件名
' DistinationFile 必需的，目标文件名，不含路径时将压缩或解压到和源文件相同的目录中
' Decompress 可选的，是否进行解压缩，为True时进行解压缩，为False时进行压缩
'返回参数：无
'使用说明：未加错误处理，所以当文件不存在、没有权限等情况下未执行成功时不会有提示
'兼容性：
'作者：红尘如烟
'创建日期： 2011-1-16
'=======================================================================================================
Function CompressFile(SourceFile As String, DistinationFile As String, _
Optional Decompress As Boolean = False) As Boolean
If Not Decompress Then
Shell "makecab """ & SourceFile & """ """ & DistinationFile & """", vbHide
Else
Shell "expand """ & SourceFile & """ """ & DistinationFile & """", vbHide
End If
End Function

复制代码