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

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
工信部发首批10张虚拟运营商牌照 开发者有哪些新机会 【PPT集萃】十位一线专家分享Spark现状与未来 谁主沉浮,亚马逊和思科角力DaaS市场 忆往昔峥嵘岁月稠——看苹果第一代iPhone的“风骚”往事 开源工具链“大牛”的经验分享:HelloGCC 2013精彩演讲回顾 20个超实用的JavaScript技巧及最佳实践 【开源专访】Linux Deepin:做更好用的Linux桌面系统 访Andy Jassy:感受亚马逊AWS生态观,思考国内外云计算差异 站到风口,最先飞起来的能将服务做到极致的IDC 苹果Siri再获一专利:可使用自然语音输入来搜索和标记图片 研发周报:Google抛弃C语言,采用Go语言重写Go编译器 取其精华 IE11里移除和新增的功能 大胆预测亚马逊即将推出的五大产品或服务 移动周报:GitHub章鱼猫中国之行 三星与LG的新动向:同样的物联网 ,不同的玩法 从Twitter到Tinder,看社交媒体在2013年的沉浮 一周消息树:有道周枫和他的“放养”团队、太极助手惹“非议” Netflix:使用大数据驱动商业决策 “中国杯”游戏极限开发大赛报道 回顾2013软件开发:JavaScript领风骚 京东“宙斯杯”创新应用大赛,百万奖金为“你”而等待 12306上的分布式内存数据技术GemFire Canalys:苹果、三星2014年仍统治平板市场 微软压力山大 Google和苹果的下一个战场 回顾2013科技界大事件:Mayer登Vouge杂志、Ballmer离职 《近匠》第03期:移动开发工具访谈,AVOS Cloud——后端的金刚钻 次世代视觉:Avegant Glyph智能眼镜技术解析 技术栈的选择:从Groupon转向Node.js、淘宝去IOE谈起 首席数据官:一个属于你的时代已经来临 盘点2013年Facebook七大最受欢迎的hack 见证中国开源的力量:“开源力量”2013年度庆典活动亮点汇总 软件发布:龙飞定时器 软件发布:加密vfp的exe,防止反编译 软件发布:“破解注册表编辑器” 软件发布:神奇注册表 软件发布:CDWizard(光驱精灵.NET) 软件发布:神通 2001 豪华版 软件发布:VB6历史文件清理器 菜单问题!!送分哟! 请问PB7.0中,Freeform格式的数据窗口中,为何按滚动条,数据不是滚动到第一页就是最后一页?如何实现自由滚动? B/S结构用何东东编最快? 关于mpeg-4 请问各位大虾:CBitmap对象如何写入一个BMP文件? 对面的大哥看过来!高分征解有关SetWindowPos的问题。 如何刷新文件内容的缓冲? 昨天一夜星际~~~后 一个捉摸的问题,、高分请解决! 在WEBLOGIC5.1上发布EJB1.1的一个小问题 请教,如何用jbuilder 写midas的服务器, 我们公司一个程序员的头式太难看了,我每次见他就恨不得拿剃头的推子给他剃光光! 寻最好的ftp软件 autoCAD的问题 找本站里面《程序员测试软件》的注册码 刚毕业的不能报? .lib 文件到底是怎么回事?如何查看它的内容? 请问,下面的警告提示什么意思(关于sybase) 那位可以给我描述一下“代表”? 请问有WINsock编程高手么,帮我看一下下面的程序 紧急招聘PB程序员(成都) 关于产品序列号的问题……想了很久了。 这里有几个问题,能者请进! 请教VC项目开发经验 如何让下载的程序变成免费的? 请问有Pdf到Text的转化的源代码么? 能否让下载的程序变成免费的? 请问怎样才能自动复制文本框中的文本到剪贴板? 是否可用简体中文的VB开发翻体中文的应用程序? 使用JavaMail转发邮件 在servlet中是不是不可以引用其它的类中的函数.(这个类不是派生于HttpServlet) 为什么买书配送的光盘文件在BCB工程中打开后不让修改(打开前已转换为存档文件了)? 请教使用OPEN CLIENT 的一个小问题 索求算法 请问能否将下载的程序变成免费的? 现在学习C#不晚吧,:P 关于VB中控制运行实例的问题 请教关于DBGRid的问题。 请问在Java下如何实现文件压缩?有没有现成的接口或者压缩算法代码?多谢 这里下载C#电子书《C#教程》(中文 希望出版社) 我如何才能删除ORACLE中建立的用户??总是提示用户不存在或SQL第归错误等等!! CSDN灌水乐园的惊世大骗局!!CSDN灌水乐园的惊世大骗局!!CSDN灌水乐园的惊世大骗局!! 如何用简体中文VB开发翻体中文软件? 高分请教!!!! 一定加分!!!1111111 王师傅加工一批零件,第一天加工了44个,第二天加工总数8分之3,这时两天已加工的零件个数与未加工的零件个数比13:7,这批零件一共有多少个?算术解 修路对修一条公路,第一天修了全长的3分之1,第二天修了全长的2分之1,两天共修了全长的几分之几 妈妈买了一些苹果,第一天吃去三分之一又三分之一个,第二天吃去剩下的四分之一又四分之一个,第三天吃去再剩下的三分之一又三分之一个,这时剩下3个苹果.妈妈买了多少和苹果? 李师傅加工一批零件,第一天加工了全部零件的三分之一,第二天加工了15个零件,两天已加工的零件盒剩下加工的零件个数比是1:1,这批零件一共有多少个? 某修路队修一条公路,第一天修了全长3/10..某修路队修一条公路,第一天修了全长3/10,第二天修了全长9/20,第二天比第一天多修24千米.(1)第二天比第一天多修这条公路的几分之几?(2)这条公路共长 三天看完一本书第一天看总的3分之1第二天比第三天多看5分之1第二天看总的几分之几? 王师傅加工一批零件,第一天完成这批零件的25% 第二天完成了35%,还剩360个零件没加工.问这批零件共有多少个? 一堆煤,第一天运走4分之1,第二天运走剩的乙班,第三天又运走剩下的3分之2,最后剩下的煤比第三天运走的4分之3少10吨.这堆煤共有多少吨? 王林看一本书,第一天看了全书的2/9,第二天和第三天都比第一天多看全书的4/27,三天后还剩全书的几分之几 车间要生产一批零件,第一天完成总量的1/4,第二天350个,剩下的与已做的比是2:3,共有零件多少 一堆煤,第一天用去30%,第二天用了4分之1,还剩13.5吨,这堆煤共有多少吨急 王林看一本书,第一天看了全书的9分之2,第二天比第一天多看全书的27分之4,两天后还剩全书的几分之几没看? 某车间生产一批零件,第一天完成总数的3/1,第二天做了400个,这时剩下的零件与做的零件的个数的比是2比3这批零件有多少个? 一堆煤,第一天用去5/1.第二天用了5/2吨,刚好用完,这堆煤共有多少吨? 王林看一本书,第一天看了全书的9分之2,第二天和第三天都比第一天多看全书的18分之1,三天后还剩全书的 某车间做一批机器零件,8天做了360个,还剩下3/11,照这样计算,剩下的还要几天完成? 一堆煤10吨,第一天用去4分之1,第二天用去4分之3吨,还剩多少吨?是求还剩多少吨的啊 小明读本书,第一天读全书的4分之1,第二天读全书的5分之2,第三天读全书的3分之1,剩全书的几分之几读 王师傅要加工360个零件,第一天加工了6分之1,根据算式补充条件(1) 360×6分之1【 】?(2)360×(6分之1+10分之3)【 】?(3)360×(10分之3-6分之1)【 一堆煤,第一天运走了3分之1,第二天运的比第一天多5车,剩下的20车第三天运完,这堆煤共有多少车?1,2,3题! 王彬看一本书,第一天看了书的9分之2,第二天比第一天所看了全书的27分之4.两天一共看了全书的几分之几? 王师傅接了加工360个零件的任务,第1天完成任务的9分之1,第2天完成啦18%.第2天加工啦多少. 第一天用去这批煤炭的1/7,第二天用去剩下的1/6,第三天用去剩下的1/5,第四天用去剩下的1/4,第五天用去剩下的1/3,第六天用去剩下的1/2,这时还剩120吨煤,问第一天、第二天共用了多少吨煤? 小宁看了一本故事书,第一天看了全书的3分之1,第二天看了第一天的5分之3,第二天看了全书的几分之几? 王师傅计划加工360个零件,结果第一天完成了任务的6分之1,第二天完成的是第一天的3分之2,还有多少个零件没有完成? 一堆煤三天运完,第一天运走2/7,第二天比第一天多运4吨,第三天运走这堆煤的1/5.这堆煤有多少吨? 明明读一本320页的故事书第一天读了一本书的1/5第2天读剩下的1/2第二天读了全书的几分之几 加工一批零件,第一天完成总数的的1/4多7个、第二天完成余下的2/5多2个,还剩全部的5/18,共多少零件? 刘师傅要加工360个零件,第一天加工了总数的20%,第2天又加工了总数的30%.还剩下多少个 一堆煤,第一天运走5分之1,第二天运走剩下的3分之2,这堆煤还剩多少最好是方程谢谢 李师傅加工一批零件,第一天加工了总数的四分之一,第二天比第一天多加工20个,还剩下100个没有加工,这批零件共有多少个 方程解 小王加工360个零件,其中有4个不合格,合格的零件占加工零件总数的几分之几? 有一堆煤,第一天运走全部的八分之三,第二天运走了剩下的四分之三,第三天全部运完.已知第二天比第一天多运走六吨这堆煤共多少吨?三天个运走多少吨? 某车间加工一批零件,第一天加工225个,占总数的3/10,第二天加工的是第一天的4/5还有多少个零件没加工? 计划生产1800个零件,第一天生产了计划的1/4,第二天生产了计划的1/6.还剩下计划的几分之几没生产?还剩下多少个没生产? 一堆煤,第一天运走48吨,比第二天少运4分之1,第三天比第二天多运3分之1,第三夭运多少吨? 某工厂加工一批零件,第一天加工了总数的20%,第二天比第一天多加工了120个?问他在下面某工厂加工一批零件,第一天加工了总数的20%,第二天比第一天多加工了120个,第三天加工的零件相当于前 生产一批零件,第一天生产180个,第二天生产的比总数的4分之1少30个,两天共生产了总数的3分之一.共有多少个?我知道列式,但不知道为什么是(180-30)÷(三分之一减四分之一)【180减30表示什 有一堆煤,第一天运全部的八分之三,第二天运走剩下的四分之三,第三天全部运完.已知第二天比第一天多运走6吨,这堆煤共有多少吨?三天个运走多少吨?算式写上 工厂加工一批零件,第一天加工总数的20%,第二天比第一天多加工120个,第三天加工的相当于前两天的和,这时还剩下100个没加工.这批零件一共有多少个?请列出详细算式.歇歇. 某车间两天生产完一批零件,第一天完成零件总数的7/12,比第二天多生产180个零件.这批零件共有多少? 妈妈买来10千克苹果,吃了3千克,还剩几分之几没吃? 1.某工厂加工一批零件,第一天加工了总数的20%,第二天比第一天多加工了120个,第三天加工的零件数相当于天两天加工个数的总和,这时还剩下100个没加工.这批零件一共有多少个? 一段路,第一天修了它的9分之5,第二天修了第一天的5分之1,两天共修了这段路的几分之几? 妈妈买了一些苹果,第一天吃了全部的1/3又1/3个,第二天吃了剩下的1/4又1/4个,第三天吃去再剩下的1/3又1/3个,这时还剩下3个苹果.问妈妈买了多少个苹果?每天各吃了几个苹果? 雷锋车间三天生产了一批零件,第一天生产了总数的七分之二,第二天比第一天多生产了十五个,第三天生产了六十个,这批零件共有多少个? 修一条路,第一天修了全路的10分之1,还剩下全路的几分之几.第二天修了剩下的9分之1,第二天修了全路的几分之几? 妈妈买了一些苹果,第一天吃了一半,第二天吃了剩下的一半,最后还剩下2个,妈妈一共买了几个?要有式子 某工厂加工一批零件第一天完成了零件总数的三分之一多24件,第二天完成了零件总数的三分之1少12件,第3天完成了剩下的60件,求这批零件的总数.用设x的方程 修一段公路,第一天修了这段路的16分之5,第2天与第一天修的同样多,还剩下这段路的几分之几没有修? 妈妈买了一些苹果,第一天吃了一半,第二天吃了剩下的一半,还剩5个,妈妈共买回多少 某工厂加工一批零件第一天完成了零件总数的三分之一多24件,第二天完成了零件总数的三分之1少12第3天完成了剩下的64件,求这批零件的总数.用方程 修路队修一条公路,第一天修了全长的3分之1,第二天修了全长的2分之1,两天共修了全长的几分之几? 妈妈苹果,第一天吃1/3又1/3,第二天吃剩下的1/4又1/4,第三天吃再剩下的1/3又1/3,这时还剩3个,多少个苹果? 某工厂加工一批零件,第一天完成总零件数的1三分之一又25件,第二天完成的是剩下零件数的三分之二少12件第三天完成了剩下的64件,求总数 一个修路队要修一段公路,第一天修了全长的1/3,第2天修的长度一天的3/4,两天一共修了全长的几分之几计算 妈妈买了一些苹果,第一天吃去1/3又1/3个,第二天吃去剩下的1/4又1/4个,第三天吃去剩下的1/3又1/3个,这时剩下3个苹果,妈妈买了多少个苹果? 如何列式 某工厂加工一批零件第一天完成了零件总数的三分之一多24件,第二天完成了零件总数的三分之1少12件,第3天完成了剩下的60件,求这批零件的总数.用设x的方程 修路队修路.第一天修了全程的1/5,第二天修了剩下的1/4,第二天修了这条路的几分之几 妈妈买苹果,全家第一天吃了这蓝苹果的一半多一个,第二天吃了剩下的一半多两个,这时蓝中还剩下一个.用方程解
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn