【access源码】一个用于对文件进行压缩/解压的函数

来源:www.accessoft.com 点击数:30866 　 | 收藏 | 复制

时　间:2011-01-20 00:00:00
作　者:红尘如烟 ID：10768 城市：成都
摘　要:压缩或解压缩文件，压缩文件格式为cab，使用Windows自带功能，cab为Windows安装程序中使用的压缩格式，无需安装ZIP、RAR等压缩软件即可使用此函数进行压缩解压，并且cab格式基本上所有的压缩软件均能打开。

正　文:

'=============================================================
'函数名称： 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

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】