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

红尘如烟

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

复制代码

aslxt

谢谢分享

zyp

谢谢分享

tmtony

不错,谢谢分享

xuwenning

谢谢分享
收藏了

5988143

謝謝分享~

lgjfg8739776

VBVBvvvvvvvvvv