说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何在 VB 中使用 Winzip 来压缩文件?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何在 VB 中使用 Winzip 来压缩文件?
版本:VB6 / VB5 / VB4-32

现在压缩软件一大堆,但是如果您想在 VB 程式中做文件压缩的功能,您知道要怎么做吗?

我不懂一些烦琐的压缩理论,但是我懂得利用现有的压缩软件来替我达到我想要的功能!

在这个例子中,我要使用 Winzip 来做,所以,如果您想用下面的示例来做练习的话,先決条件就是您的电脑中一定要有安装 Winzip 才行!

压缩文件 (加入文件):

语法:winzip[32].exe [-min] action [options] filename[.zip] files

参数说明:

-min 最小化
指定 Winzip 执行时为最小化。如果您要使用 -min 这个参数,它必须是命令列参数的第一个参数。

action 方法

-a add 加入文件
-f freshen 重新整理目前文件
-u update 更新文件
-m move 移动文件

options 选项

Directories 文件夹选项
-r Recurse Directories 含文件夹內內容。
-p Save Extra Directory Info 储存其他的文件夹信息。
method 決定压缩的方法选项
-ex eXtra 最大 (最慢)
-en Normal 一般 (默认值)
-ef Fast 快速
-es Super fast 最快速
-e0 no compression 不压缩
其他选项
-s 设定密码 密码必须使用双引号括起来。
例如:-s "Secret Password",不过要注意大小写是不同的!
-hs   包含符合条件的隐藏及系统文件。

filename.zip 压缩文件名
指定压缩后的文件名,要注意的是必须是全路径文件名 (含磁碟機代号及文件夹)。


files 所有原始文件
一个或多个文件,每一个文件写在獨立的一行,可以使用萬用字元,例如:*.bak。


解压缩文件:

语法:winzip[32].exe -e [options] filename[.zip] directory

参数说明:

-e 表示解压缩
是必要的参数!

options 选项

-o Overwrite existing files
without prompting 取代同名的文件。
-j Junk pathnames 跳過舊文件。
除非指定 -J 这个参数,否則会使用原本的文件夹名稱。
-s 设定密码 密码必须使用双引号括起来。
例如:-s "Secret Password",不过要注意大小写是不同的!
-hs   包含符合条件的隐藏及系统文件。

filename.zip 压缩文件名
指定压缩后的文件名,要注意的是必须是全路径文件名 (含磁碟機代号及文件夹)。

directory 文件夹
解压缩后的文件存放的文件夹。如果文件夹不存在便会自动建立。


注意事项:

※非常重要:永远使用全路径文件名 。
※若希望执行 Winzip 时是最小化,要使用 -min 这个参数,它必须是命令列参数的第一个参数。
※Winzip 內建只支援 zip 及 unzip 二种操作模式。
※若是長文件名的话,必须使用双引号括起来。
※在设定文件时,前面及最后的字元不可空白,也不可有空白行!
※在命令列中的方法及选项参数,至少要用一个以上的空白分隔。

※WinZip 可以用来配合 cc:Mail 压缩文件:
更改 WMAIL.INI 中的 [cc:Mail] section 的 compress= 这一行
指定 Winzip 的完整路径,并跟随着 "-a %1 @%2" 参数
例如:如果 Winzip 安装在 c:\winzip,則 compress= 这一行必须改成
compress=c:\winzip\winzip.exe -a %1 @%2


示例:
Private Sub Command1_Click()
Dim wzipexe As String ' winzip 执行文件的位置
Dim wsource As String ' 原始文件 (压缩前)
Dim wtarget As String ' 目地文件 (压缩后)
Dim wcmd As String ' Shell 指令
Dim retval As Double ' Shell 指令传回值

' Shell 指令
wzipexe = "C:\program files\winzip\WINzip32" ' winzip 执行文件的位置
wtarget = "d:\1.zip" ' 原始文件 (压缩前)
wsource = "d:\1.mbd" ' 目地文件 (压缩后)
wcmd = wzipexe & " -a " & wtarget & " " & wsource ' Shell 指令
retval = Shell(wcmd, 6) ' Shell 指令传回值


'上面的一大串可写成
'retval = Shell("C:\program files\winzip\WINzip32 -a _
'd:\1.zip d:\1.mdb", 6)
End Sub
开源炫彩界面库简介 一周消息树:我的十年编程自学之路 移动搜索状态:谷歌称雄 仍有较大发展空间 移动周报:我为什么弃用Objective-C而选择RubyMotion? 2月浏览器排行:IE高歌猛进 Chrome创17个月新低 Twitter创始人:最好的程序员大多是自学成才的 Evernote遭到攻击,5000万用户密码重置 VC++开源项目:P2P播放器AVPlayer NetIQ亚太区经理Ian Yip:移动社交工具崛起带来新机遇 快播CEO王欣:我不做内容,只钻技术! EMC中国凭什么说营收5年再增5倍? HTML5:或助三星Tizen 2.0逆袭主流移动OS 互联网巨头公司为何联合开发WebKit? 继Windows Blue:WP8升级或今年圣诞前到来 中国黑客部队攻击美国23家天然气公司 [CTO俱乐部第93期] 移动应用研发及位置在线平台架构分享 TeamToy——开源的团队高效协作工具 2013年数据中心发展的五个关键因素 可穿戴式设备:高调的Google 低调的苹果 由CloudFlare宕机引发的思考 传iWatch年内推出 或成苹果救命稻草 Twitter开源其Java消息流库Hosebird Client API正在崛起 渐成企业核心业务 HTML5会是Firefox OS的生门还是死门? 三星的成功并非偶然,而是专业 避免恶意软件 日本政府警告用户慎用Google Play 曝光:诺基亚要推出新手机系统Meltemi 为研发iWatch,Jony Ive订购大量Nike腕表 APP运营人的一天:宫爆老奶奶产品运营 新传感器:三星Galaxy S4或将支持眼球追踪 IBM发布基于OpenStack的服务 保留原来框架页面,winopen打开的一个页面,然后发现session超时(需要重登陆),希望在原来的框架页面里打开登陆页面,关闭弹出窗口 还是那个问题 关于import javax.servlet.http.*的问题 达人,一个delete from的exists子查询在mysql中如可改写? ? 请教大虾们,如何实现窗口中的控件随着窗口的大小变化而变化? 固定IP间的互访问题 我如何高亮显示list1中的某一行? 有个C++例题有些看不懂 不懂.net,想学,但迷肓!!!请在职的程序员指点一下。 程序都隐藏了,加速键还起作用的程序如何做? 高分求购方案,急! 怎样去掉TTreeView中自动生产的滚动条 驳“学习JAVA钱途无量”的说法 在线等:如何防止C#应用程序第二个实例被启动? 请问谁有ActiveSkinV4.3(或者4V.2)的破解版?50分相赠~! 新手请教 用RMAN备份数据到磁带出错!!解决问题一定给分!!江湖救急啊!! 搞不明白的vc错误,气死我了,请高手指点。。。 上不了网 动态调用DLL是出现的问题,棘手中,待解决。 我要对Spreadsheet的数据进行排序,用javascript怎么写 200分求<构建Web解决方案---应用ASP.NET和ADO.NET>电子书,不是只有源码的,谢谢 用DECS连接AS/400数据库问题 GD网站大家一起随便贴 寻人启事:我有一个侄子,网名叫穿越沦陷的爱,经常跑到这个版块来玩,谁看见了他,让他来找我,急事! 请教高手!!利用二进制文件转换成文本文件进行加密,实现理论是什么? IP包过滤程序问题!!!请大虾帮忙!! sql loader里面不支持FILLER 双系统中,如何删除WIN2000?(98+2000) 实现了第一个愿望... vc和vc.net有什么区别,学了vc有必要学vc.net吗??? 急,数据库表的问题!!! 为什么在Run ActivX程序时出现问题? DLL窗体关闭问题 setfont设置Dialog字体无效,搞不明白,大侠指点 为什么我的Web应用程序项目启动不了,总是出现错误!!! 100分求教jtable问题??? 菜鸟送分问题,请哪位大侠讲讲Inte1.ResponseCode和Inte1.ResponseInfo 声音变了!怎么办啊??? 100分 请问怎么做“索引”? make求救 用ant编译pet store 时,出现问题,提示信息见内文?请帮忙。。。高分酬谢。 三个三角了 开心ing 散分 tmd,上了vsnet2003贼船了。原来vc6的都不好用了 找在linux下免费gui?? 打开窗口获取原窗口信息的问题 Cbuilder安装问题,急! HelloWorld大全[接龙] 我要写一个程序在前台不需要运行后台运行可以:就像平时邮件服务品一样在前台不需要运行,而后台是提供服务的,要怎样来实现 临时表问题 多媒体教学系统开发 问句话,请问是谁说的?人生如果仅求的两点一线的一帆风顺,生命也就是去了存在的意义 WHY I AM NOT A CHRISTIAN怎么样 阉割什么意思 文天祥离世也经七百多年了,但是他的浩然正气,却千秋常在的意思是什么 d()s()rt这是什么词 RT是代表什么 social-media-account是什么意思 These days,a Chinese girl's travel diary is verypopular on the Internet.的首字母填空 写100字评语! GigabitEthernet0/0/2 6 D 请问下 这在H3C 7502交换机上是什么意思 THANK YOU! 牛津初中英语7A第一单元测试卷:1.Daniel likes English very much.He _________(聪明的) at it.2.Their _________(朋友)names are Millie and Sandy.3.We all want to be _________(友好的)to other.4.The _________(窗户) in our classroom 福州旅游局官博骂记者为狗 回应:非官消费者保护法首次大修:网购7日内可无明星进入考题屡见不鲜 “杨幂题”引争环保部:上半年新疆青海等省区氨氮排放北京5药店今起“自助”卖奶粉 可刷银广州公示积分入户入围者 申请者成功率“局长爆粗口”视频为4年前拍摄朝鲜蘑菇研究所竣工 肩负建设“蘑菇之印巴再起武装冲突 造成10名平民受伤英国伦敦征兵日到来 “小兵”穿军装有巴西世界杯一个在建场馆发生火灾缺少资金支撑的红楼文艺2014款比亚迪S6全面升级最美启辰设计大赛圆满落幕买二手车如何考虑旧车保值率深圳地铁工程咨询有限公司50岁以上老年居民 可在社区免费筛查证监会再发11家 IPO预披露名单生态绿廊引领绿色再生示范城市治堵出路何在广汽丰田“雷凌”闪电来袭《2014年巴西FIFA世界杯纯金纪傲视苍宇盗墓也风流火影之控姐人生霍格沃兹的剑圣穿越战国破碎两仪三国蒋钦传曹操重生在现代异世传说狂战魔主寂灭轮回道茨坪革命旧址群旅游扎贡沟旅游白塔旅游斜阳岛旅游石景山观光索道旅游仙台山旅游大同东城墙旅游昊天寺旅游天一温泉度假村旅游后宰门街旅游东河桥旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘