主站
|
帮助
|
【access源码】一个用于对文件进行压缩/解压的函数-红尘如烟
首页
收藏文章
好友
档案
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页
>技术文章> Access数据库-模块/函数/VBA
【access源码】一个用于对文件进行压缩/解压的函数
发表时间:2011/1/20
评论(2)
浏览(30019)
评论
|
加入收藏
|
复制
摘 要
:压缩或解压缩文件,压缩文件格式为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源码】一个用于对文件进行压缩/解压的函数[Access软件网] http://www.accessoft.com/blog/article-show.asp?userid=10768&Id=5208
Access软件网交流QQ群
(群号:
198465573
)
相关文章
压缩修复外部mdb(带密码)
【
叶海峰
2012/7/3】
利用命令按钮退出时压缩自身
【
沈军
2012/8/25】
当前数据库压缩修复、打开选定的数据库/后台数据库管理
【
网行者
2012/12/2】
常见问答
什么是Access?
Access有什么用处?
Access开发的软件作品哪里有介绍?
我们到底该学习什么编程语言工具最合适?
Access容易学吗?
如何学习Access才能早日学会?
三论Access学习方法
Access学习方法总结
我适合于自学还是参加Access培训班?
我想参加Access培训,哪里有Access培训?
从哪里可以下载Access?
技术分类
access表
access查询
access窗体/数据页
access宏
access模块/函数/VBA
access报表
ADP及SQL SERVER
access开发平台
access视频教程
access2007
access2010
相关资源
access教程
Access新手教程
access书籍
access QQ群
Access MSN群,百度Hi群
access新浪微博
access腾讯微博
access开发平台下载
access淘宝
access同城交友
access开发心得
文章搜索
关于作者
红尘如烟
文章分类
平台文档
开发技巧
技术文章
原创作品
文章存档
2022年05月
(1)
2022年03月
(1)
2019年
(9)
2018年
(2)
2017年
(7)
2016年
(8)
2015年
(7)
2014年
(13)
2013年
(12)
2012年
(25)
2011年
(52)
2010年
(71)
2009年
(7)
友情链接
access97官方下载
access2000官方下载
access2003官方下载
access2007官方下载
access2010官方下载
access2013官方下载
access官方下载
access源码
access教程
access培训
access开发平台