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

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
【MDCC专访】友盟副总裁焦岳:从36万款App,看今年的热门领域 一切只为经典 微信开发者大会前瞻(附议程) 从手势识别到增强现实,开发实感应用该了解的技术细节 福利来了,爱拍原创免费为iOS版手游制作宣传视频 【工具推荐】Zrender——轻量级Canvas类库,让绘图大不同! 基于Docker和CoreOS的开源PaaS平台——Deis v1.0正式发布! 微软宣布.NET开发环境开源 支持三大操作系统 爆发吧,诺基亚!前员工开发物联网新设备 详解Visual Studio Emulator for Android,微软的Mobile First! HPC China 2014完美落幕,AMD Firepro荣获好评! 揭秘微软的Container技术之一Drawbridge AWS副总裁谈数据中心网络打造 【最具价值CTO评选秀】出门问问CTO雷欣:从技术极客到核心管理的秘密 《近匠》APICloud:“云”+“端”一体的移动API提供者 Oculus移动SDK发布!John Carmack操刀、集成Unity 4.5 11月15日深圳见!深圳微信开发者大会公布全部议程 参与2014中国大数据行业大调查 BDTC门票等你拿 HTML5规范尘埃落定,5个开发工具推荐 盘点最受开发者喜爱的Android 5.0 Lollipop API IoE Day侧记:想开发智能硬件?先要弄明白这几个问题 【问底】许鹏:使用Spark+Cassandra打造高性能数据分析平台(二) 微软承诺所有Lumia WP8设备将升级至Win10,用户会买账吗? 周末,深圳微信开发者大会等您来!(参会必读+名单) 营造云安全生态链 第五届云安全联盟高峰论坛在京顺利召开 中国大数据六大技术变迁记 【最具价值CTO评选秀】当当网CTO熊长青:结合行业及技术发展,规划技术方向 社交颠覆传统,环信技术交流沙龙纪实(组图) 揭秘经典案例炼成之道 微信开发者大会精华回顾 从一家电子商务网站学到的经验教训 【最具价值CTO评选秀】极路由CTO康晓宁:极客转型CTO的感悟 盘点这些年来的“微信万能论” 本人用insertShile安裝制作軟件制作了vb6的一個setup文件包,直接用硬盤copy到其機子安裝是沒問題的,但是本人將該setup文件包刻錄到光盤 如何可以将windows 2000 server的C、D等盘的默认共享属性去除,可不可以将这个属性永久去除,因为选择“右击”-“共享”去除后,重启又出 如何让你的编译器生成汇编代码 怎么样把数据库里的某个字段读到ComboBox1里? 在MDI框架中,如何禁止View相互切换? 代码转换 谁能告诉我delphi6.0中的installshield怎样使 为什么我用Zend Encoder加密了一个php文件,速度比以前没加密慢了好多哦, 怎样让在运行时加载的控件总在最前面?? 代码转换 linux + mysql+ apache + php + jdk + jsdk 怎样让在运行时加载的控件总在最前面?? 代码转换 一个关于全局变量的访问问题。 263游戏大厅里的用户信息列表是怎么实现的?急问,多谢!! 也帮帮我吧!i'll be dead ! 263游戏大厅里的用户信息列表是怎么实现的?急问,多谢!! 关于窗体 如何去掉我的“计划任务”共享? linux + mysql + apache + php + jdk + jsdk 新手问各位大哥一个问题:我在机器上已经安装了98,2000,现在有装了红帽7.2,已经安装成功,但是在LOGIN之后,有开始GNOME之后,什么都 菜鸟问题,请多帮忙 window 2000 server服务器,不能使用mail函数,怎么解决!?急!! 我靠!我今天算碰到一个希奇事!你们听听这个网址! 关于鼠标右键菜单的制作问题 SOS!100分相送。很简单的题目,明天考试急用 请问oracle中的帮助导航器、帮助主题窗口是在哪里啊 重要问题!!!请尽快回复。 证券之星最新版本有没有破解版啊,我在证券之星下载的多是只能用三天 各位老大,有谁知道怎样边接收网络传送的音频流边播放 System.in的问题 为什么listbox.selectIndex返回的值总是-1??? masm611装好后不能DEBUG,怎么回事啊???????? 挥泪放出两百分。为了实行打击报负不得不放点血了。来者有分。大家要涌跃发言。快快回答,正确就结贴。 dll的问题和语言混编 今天买了双新皮鞋,感觉不错。散分。 《微型计算机技术》问题 放分!!!:使用C++多年的老手,一定要看过来,看看我们对C有多了解 怎么让listbox有响应onDbClick事件呀! 如何恢复IE的“自动完成”功能。即让IE弹出那个“自动完成”的提示框询问用户是否保存输入表单中的内容 。 怎样扩大、缩小不规则区域界面? 高手,怎样将数据库表中为BIT的字段,读出来后,显示为yes或者no,而不是默认的true or false 我得分的帖子里显示得分还是0,为什么?能不能纠正!! 在Servlet引用了JDK中没有的包应该怎么设置! 问问一个很简单的问题。大家看看能否帮我澄清这个概念 求职 我想做个类似qq的东西,但是用户登陆后的消息怎么做?? 关于数据库 请教一个简单的阶乘递归的问题 请small_wei前辈领分.[1] 紧急求救!!!! Mary tries on the shoes.(用them替换句中的the shoes) Live On Day At A When I have time,I'll come to the school to see how you ___.A.study B.have studied C.studied D.are studying (最好讲解一下) ________,there lived a very kind man in the village.A.Before longB.Once upon a timeC.Before a long timeD.A moment ago My motto is:live one day at a time.翻译 i 've been waiting for you for an hour .为什么这个 have been 后面 带的是ing kate and mary bring them什么the pary第一个字母是t Suddenly a fire broke out in the workshop,and the workers immediately tried and put out the fire.为什么workers前面要加THE? 125.---I’ve been waiting for you for an hour!Where have you been?---__________ It’s rush hour now,you know,the traffic is too bad!A.It doesn’t matter.B.Sorry about that.C.Be careful!D.What a pity! the old man lived___________ in the village(by oneself)填单词 Suddenly () fire broke out in the warehouse and everything in it was on () fire.A./,a B.the,/ C.a,/ D./,the 为什么选B并翻译这句话 We have been waiting since 8.00(改为否定句) she has been reading for an hour(对for an hour提问)He has been running since i arrived(对since I arrived提问)谢谢了这些句型转换 I have never thought of there be a quarrel between them.改错,急,一天内回答! 英语翻译翻译:----Yesterday Mary broke two glasses when she was washing them.-----I'm not sure.How could she be so careless?关健是I'm not sure.我不确定,在这里怎么翻译.好像不通顺. -Why did Miss Wang look so worried when we saw her?-Because she wondered_.A.where did the other students go B.when would the policeman come C.what her students did during the tripD.if her students leave the classroom The old man wants to settle______in this small village it was said ( )was how the fire broke out.It was said ________ was how the fire broke out.A:that that B:that what C:that D:what第一个that是引导主语从句,那第二个that到底是什么意思呢,实在想不通,(随便帮我翻译下这句 she has been wait for an hour she has waited for an hour 二者的具体区别二者都属于现在完成时吗? I can't remember how many days ago --- a fight broke out between them.A it was when B it was that C was it when D was it that 选B 请解释为啥不能选A you shoud arrive on time or a little late when you visit 求助:改写句子 Sally will also be busy sending her mother postcards because she has...原句:Sally will also be busy sending her mother postcards because she has promised to write to her every week.改写: Sally will _______ _______ her mot 宾语从句WHAT做引导词的题!1.Those who were legt alone in the cave knew better than the others(what frightening)sounds bats in the dark made这里knew 谓语,better than the others不是宾语么?那么为什么说WHAT还引导宾语从 one day at a time的意思是活一天算一天的意思 还是珍惜每一天的意思? where does Mrs Zhao take me to? What moved us most was that she liked after the old man for more than twenty years.什么意思?如何翻译? they are worried about the welfare of the cloned child if there is one意思是什么? does mrs cooper know where it is?的中文意思急 ___ moved us most was___ he liked after the old man for more than twenty years.为什么___ moved us most was___ he liked after the old man for more than twenty years.A.That; that B.What; that C What; what D.That; what我选的是D为什么错了、 He is worried about him .about him 做什么成分 16.If you couldn’t find the time to attend the meeting,you should have ( ) the invitation early.16.If you couldn’t find the time to attend the meeting,you should have ( ) the invitation early.(本题分数:2 分.) A、 Decreased B、 Reduced C 英语翻译速求I was moved by what the man did 中文翻译 He is worried about if she is OK 改错,错那里了?有四处可以改:A is B worried C about if D OK On mary's ( ) birthday ,she was given a new computer by her parentsHOW ( ) she was A nine lucky B nineteenth lucky 选什么?说理由 Don't fuck my ass go through with get through with Lily________her parents in Shaihai when she was young.RT快点哦 英语翻译He recognizes more clearly thanother men what he is letting himself in for and does not reproachher for any failings. get married with 英语翻译“to be"中的”be"可以去掉吗?去掉后有什么区别. 用宾格me you him her it us them的 )快,3点之前要用 I wanna knock you down and kick your ass我不知道怎么读.用拼音或者标准的汉字读音,最好来个英语读音的. 用下面四个句子造句 it is jim's bag.give _____,please.A.it him B.him it C.them him D.him them急 got sb.with sb. 麻烦大家来帮我造一个有文采的句子呗!按照题造句,仿照,“愿你的生命中有够多的云翳,来造成一个美丽的黄昏”,用相同的句式和修辞手法另写一个句子, hey you man suck your fucking ass hole knock your punk ass down啥意思?这是will smith 说的粗口 圣诞节又来了 CHRISTMAS IS HERE AGAIN怎么样 me,you,him,her,it,us,them的主格 About Ross' 'hunt him down and kick his ass'?What does that mean anyway?after Ross told Chandler,he laughs out rolling on the floor.After that,in Monica and Chandler's rehearsal dinner,Rachel and Phoebe laugh their asses off too.What's so funny about They are waiting for the car(the car划线)划线提问 Fuck 在这篇文章中“What will Judy be in the play this time?”翻在这篇文章中“What will Judy be in the play this time?”翻译, Tom ang John are waiting for me at the library对划线部分提问 mary drew a long ,soft brecth ,as though the paper daffodils between them were almosttoo sweat to bear.的中文意思Mary drew a long ,soft brecth ,as though the paper daffodils between them were almost too sweat to bear.的中文意思 用me him her it us them you填空1.A:I can't carry the box.Please help ____,Tony.B:All right,I'm coming.2.A:It 's my bed.You can't jump on______,Tom.3.A:Listen to me,children.I'm talking to______.B:Miss Liu is talking to_______.Listen to _______.4.P when is a good time to have the party,这是什么语法,应该怎么解释 The old man lived___in the___mountain villageA.lonely;aloneB.alone;lonelyC.alone;aloneD.lonely;lonely I can't carry the box.Pleave help ( ),Tony.(括号里应该填me、him、her、it、us、them、you.) what will happen in the world in 500 years' time?这句话怎么翻译啊?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘