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

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
VB如何由两个ASC码(区位码)复原成一个汉字? VB如何转换C代码中的高字和低字 一些字符串操作的问题和回答 -VB资料 VB怎样把VC++代码转换成VB代码 字符串中包含双引号-VB资料 字符串中文的问题 -VB资料 巧用CLIPBOARD建立图像数据库-VB资料 在VB中存取数据库中的图片 Access97的报表解决方案-VB资料 Access下如何使用通用对话框-VB资料 ADO简介 -VB资料 ADO三大对象的属性、方法、事件及常数(二)-VB资料 ADO三大对象的属性、方法、事件及常数(三)-VB资料 ADO三大对象的属性、方法、事件及常数(一)-VB资料 Data 控件使用有密码的 Access 数据库 -VB资料 Excel、Access、VB的结合应用 Microsoft SQL Server 7.0安装问题(二)-VB资料 主题: MDB文件的导出 使用 DAO-VB资料 Microsoft Access秘密、技巧和陷阱-VB资料 SQL的基本操作(1.数据类型) -VB资料 SQL的基本操作(2.数据库的相关操作)-VB资料 SQL的基本操作(3.表的相关操作) -VB资料 SQL的基本操作(4.数据的检索)-VB资料 SQL在VB中的使用及访问远程数据库 Text 转换为 Access MDB -VB资料 VB5.0数据库基础 非编程方式访问数据库-VB资料 VB用编程方式访问数据库 VB 5.0数据库设计技术讲座(4) VB5.0数据库编程经验小集 VB5在处理数据库时的几个“BUG” 关于IrDA在WINDOWS/NT/XP下的编程实现 一定给分啊,快点进来看看阿 ! 帮忙写个SQL语句。 静态文本框里的文字如何调整其大小? store procedure类型 数据窗口问题 编译器参数,在线等待 求sql 如何用BUTTON按钮,将一个窗体文件关闭? 非常简单的付值问题.火急,再线等待,马上送份 调用RasDia();第一次拨号成功断线后再拨就返回错误字符终止连接为何代码如下: 怎样能编写用于用ie注册邮箱、论坛账号时自动填表的软件 资源文件的问题! 一个挑战斑竹的问题!!50分 如何把压缩文件(*.rar或则*.zip)和word文档存到Acess数据库啊??? 如何可以知道访问我的网站的用户来自哪里? 关于SQL的问题 这对话框我如何去掉 asp.net 能否运行在Solaris系统下,参与者有分 c#请求援助 int a 除以 int b 取他们的余数用C#该怎么写啊?谢谢 求救!显示后台数据,在线等待!等…… jsp中的数据库问题,求教!!急 刚学数据库,弱智问题,高分赠送! 这个查询怎么写? 关于表生成文本文件遇到的事情,急 InstallShield Professional Standard Edition 6.30 英文版的下载(高分:200) 寻一男友:发展方向——>老公 我用serv-u,客户端访问为什么没有用户登陆窗口啊? 脚本验证datetime要准确点的 请问,想做出象Protel(Tango)作图效果的程序,如何下手呢? win API函数的区别(win xp 和win 2000)高难度!! 那儿有winsock.pbl 进入系统的速度变慢????在线等待 当 AllowPaging 设置为真并且选定的数据源不实现 ICollection 时,AllowCustomPaging 必须为真,并且 ID 为 DataGrid1 的 Data 怎么提高搜索速度? 如何printScreen并获得这个图片? 如何用SQL格式化一个IP地址?我得到的IP地址是一串数字,想显示为255.255.255.255那样的样子。 为什么在客户端出现Interface not support的错误? help,关于文本显示! SOS 急急急 请教几个概念? 如何打开一个用winexec打不开的可执行文件。 进入系统的速度变慢????在线等待 请大家谈谈目前比较经典软件,共享的,免费的,大公司的,个人的,国内的,国外的,不分行业等等,只要是经典都可以,请大家畅谈! 欢迎踊跃讨论!如何使得delphi编的exe或dll最小! 基于对话框的打印,打印一块区域!! 一个简单的链问题是输入一个结点请高手在助我 急问!在access中什么字段类型能容纳很多文本?就类似sqlserver中的text!!! 最近有个工程需要用串口(用MSComm控件)来接收ASCII字符信息,怎么用啊!?谢谢! VC++6.0中如何通过Socket从Client端向Server端传送文件? WinCE.NET 系统上如何拷屏 每天看书的5分子1还多10页,4.5天看完这本书,问这本书一共多少页?怎么答题 一项工程甲单独干需10天,乙独干需8天,现在甲先做2天,剩下的两队合作还需几天? 怎么写通讯稿,最好来篇范文,我在供应部,领导叫写一篇关于电煤的通讯稿, 一本小说,每天看45页,第16天看完;如果每天看54页,第14天就看完了,这本小说最多几页,最少呢? 一项工程,如果单独做,甲队需8天,乙队需10天,两队合干了一段时间后,还剩下这项工程的三分之二没有完成.甲、乙两队合干了几天 陈叔叔在一家公司上班下图是他一个月的支出 求这个月的总支出是多少,和伙食费是多少元 双向自动扶梯一层到二层,两个扶梯梯级宽度都是800,三十度倾斜角度,提升高度为4200那么土建时,二层预留洞口宽度为多少,二层顶端是否要留得大点,一层基坑的大小是多少? 1.下面是红光有限公司2006年四个季度的收入与支出情况统计图.单位:万元 四季度收入:800.400.500.900.支出:600.300.300.500 .(1)分别计算出每个季度支出各占本季度收入的几分之几.(2)比较 一本小说,如果每天看45页,第十六天看完;如果每天看54页第14天看完.这本小说最多有几页?最少呢? 巍巍中山陵第9段描写了哪里的景色 怎样写通讯稿 我读1本书第1天读了10页以后每天都比前一天多读2页第16天读28页正好读完 这本书共多少? 哪位能将《巍巍中山陵》书后习题答案告诉偶,万谢 竞选纪律委员发言稿 有关 崇尚科学,反对邪教 的征文800到1000字.麻烦写得水平高一些吧. 巍巍中山陵 写祭堂用了什么说明顺序 急具体的空间顺序,比如说由内到外什么的,是写祭堂,不是整体写中山陵,要具体的空间顺序,急 在一个底面半径是10厘米的圆柱形杯中装了一些水,把一个底面半径是5厘米的圆锥形铁锥完全浸入水中,水面上升了1.2厘米,这个圆锥形铁锥的高是多少? 一项工程甲队独做8天完成,乙队独做10天完成,甲乙合干三天,乙队另有任务,甲队还要干几天才能干完这工程高手来解 当.时,.而当...时,.造句(《巍巍中山陵》第八段 仿写) 在一个底面半径是10厘米的圆柱形杯中注满水,水底放了一个底面半径为5厘米的圆锥形物体,当这个物体从水中取出后,杯里水面下降了6毫米,这个物体的高是多少? 小东图书本数的5分之3等于小强图书的3分之2,小东与小强图书质量比是多少 去澳门考托福需要准备什么!本周六就要去澳门考托福了!由于是第一次 自己去 所以也不知道该准备什么!请问要带什么不要带什么呢!除了身份证护照之外有什么证明的呢?就是需不需要用张纸 通讯稿与新闻稿的区别是什么 小刚和小强看同一本书,小刚还有19页没看,小强还有14页没有看,他们俩()看的页数多. 一个底面直径是20厘米的圆柱形容器里面装有一些水,把一块铁块完全浸没在水中,水面上升了3厘米,这块铁块的体积是多少? 竞选纪律委员演讲稿 中山陵怎么走? 帮忙写个作文开头和结尾,题目《目光,助我前行》作文的要求是“题目中含有‘目光’一词”.我想写体育课时各种目光:同学们取笑我体育不及格的目光、老师失望的目光、还有朋友鼓励的 通讯稿与新闻稿有区别吗? 中山陵怎么去 找地震中的师生情班会主持词?快 足球赛新闻稿算是通讯稿么? 中山陵的地理位置【要简短】 专家帮忙给我托福作文评分你认为人们都是为了什么上大学的,就是ibt的第一个独立作文题目.my version:Basically,university and college is a place for learning,trying and enjoying .With the extension of enrollment of s 一只半母鸡在一天半里生一个半蛋,六只母鸡在六天里生几个蛋? 解释! 用什么去刺激蟋蟀须,让它们打架 写了一篇托福作文,希望能得到一些意见和建议,文章主要都是自己发挥,不太想用模板,觉得这样会有些枯燥,而且对长期的写作帮助不大.所以写得比较随意,可能问题会比较多,虚心赐教,People tod 东方超市决定将某种商品按原价的80%卖出,这样所得的利润就只有原价的40%.已知这种商品进价是每个四元,原计划可获得利润600原,这种商品共多少个?我们还没学过二元一次方程,最好是算术法, 蟋蟀吃什么?怎么看雌雄?现在养最多活几天? 关于四川地震的中队主题队会结尾串词怎么写我现在初1,不用太长,也不要太短, 商店决定将某种商品按原价的80%卖出,这样所得到的利润就只有原计划的40%.已知这种商品的进价是每个4元,原计划可获利润600元,那么这种商品共有多少个?不要列方程,算术法加十分 巍巍中山陵课文问题吕彦设计为什么能脱颖而出?为什么要介绍大平台与入口石坊垂直高度差? 清明节主题班会主持词要求清明节主题班会的主持词! 商场决定将某种商品按照原价的80%卖出,这样所得利润就只有原计划的40%.已知这种商品的进价是每个4元,原 中山陵简介(200字以内)不要提到孙中山 在一个底面半径是6分米盛满水的圆柱形容器中浸没一个底面半径是3分米的圆锥形铁锥,当铁锥被取出后,容器中的水面下降了2分米,求铁锥的高?急 商店决定将某种商品按定价的八折卖出,这样所得利润就只有原来的40%.已知这种商品的进价是每个5元,原计划可获利润800元,那么这种商品共有()个. 中山陵简介 100字 在一个底面半径是6分米盛满水的圆柱形容器中浸没一个底面半径是3分米的圆锥形铁锥,当铁锥被取之后,容器中的水面下降2分米,求铁锥的高? 商场决定将某种商品按照原价的80%售出,这样所获的利润只有原计划的40%.已知这种商品的进价是每个4元,原计划可获利600元,那么这种商品有多少个? 急~小学六年级,最好是算式,算式的 看风识天气的谚语 请牛人指点下英语四级怎么复习能过啊 我基础不好基础就是十分不好 用英语写:每个星期日我去人民公园,在公园里我经常看到这样一些场景:一些男孩子在做游戏几个女孩子在放风筝,一些老人在跑步,有一些孩子在画画,有人在唱歌,有人在钓鱼,我常常带着我 中山陵简介 50字100以内就可以 对从事热力、电力、燃气、自来水等公共事业,怎样征收增值税?与销售数量有关的能不能举个例子呢? 下面流出黄色的液体是怎么回事呢? 每天看书的5分子1还多10页,4.5天看完这本书,问这本书一共多少页? 关于梦的作文.是梦,不是梦想. 译英语:自建房虽然通了电,但没有一条像样的路,没有自来水,没有公厕,没有煤气和暖气. 白俄罗斯总统提议格鲁吉亚重返独联体遭马达加斯加总统选举平稳结束郝柏村:抗日战争的胜利属于整个中华民马尼拉市长拟为人质事件筹集2000万第九届两岸经贸文化论坛今举行 为交流明星进入考题屡见不鲜 “杨幂题”引争赵本山亮相春晚节目一审 冯小刚今答网伦敦股市《金融时报》100种股票平均土耳其与伊拉克外长表示将加强两国关系31省区市9月CPI涨幅出炉 物价“西共体轮值主席呼吁国际社会支持西共体德国法兰克福股市DAX指数25日上涨白俄罗斯总统提议格鲁吉亚重返独联体遭巴黎股市CAC40股指25日下跌德国政府:默克尔被窃听手机泄密可能性美国10月份消费者信心降至今年以来新女子参加富豪相亲会 反问记者你不爱钱央视马年春晚首次审看节目 共有28个故宫凶杀案嫌犯在协和医院抢救 已度过山西平顺回应“官员粗口门”:已对涉事德国政府:默克尔被窃听手机泄密可能性综合资讯地价都1.1万 开盘才1.9万广州危化企业超2000家8月上旬全市房价近万元越秀·岭南隽庭变身省博物馆探粤空间佛俱乐部冠军联赛诞生治违建 禅城城管将专门整治全市燃气设施昨日起安全大排查排查情况智能家居概念或再续热市民状告公安 局长出庭应诉中证500期指涨2.57%佛企吃“螃蟹”2.5天假即刻有个性广州,用什么调味?“世界机器人大会”将移师佛山国际会展俄罗斯举重大力士拖动26.2吨坦克反对装电梯 她咬伤民警精心设计的实用四房 比大而无当大三房2015“中国侨都杯”双节棍王争霸赛众明星 发微博为天津祈福昔日“地王”建停车场 为何还在“晒太坐BRT去逛“乞巧节”
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘