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

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
顺丰模式:物流行业“互联网化”的科技之路 移动应用云服务工具APICloud宣布完美适配iPhone6 从应用分发到能力开放 华为开发者联盟沙龙上的共赢理念 SOOMLA框架:移动游戏分分钟创建个虚拟商店 Facebook:如何让应用适合所有系统、带宽以及屏幕 Docker实践者不能错过2014 Container技术大会的九大理由!(讲师议题全面揭晓) 2014全球云计算大会中国站(CC China)精彩集锦 腾讯X5浏览服务正式开放 30多款APP成为首批受益者 Node.js设计经验谈 LeanKanban University首位中国认证讲师路宁:看板会为更多国内企业带来深刻变革 环信IM沙龙纪实:无分享不IM,无社交不未来 【工具推荐】ESL:更简洁、更高效的标准加载器 【先锋】亲加通讯云:以云服务模式为App提供社交引擎 2014中国移动开发者大调查第一批获奖名单大曝光 移动开发云服务AVOS Cloud宣布完成A轮融资 Uplinq2014:人工智能嵌入硬件 万物互联建生态 Uplinq2014:基于Vuforia的新奇智能玩具 一应俱全!开源跨平台3D应用开发框架Minko 【线下技术培训】敏捷测试实战解析和系统方案 《近匠》Ping++:简单、高效、第三方支付SDK 有关编程的12个猜想 【问底】王帅:深入PHP内核(二)——SAPI探究 【CTO俱乐部走进汽车之家】活动图文实录 只为逼格?超薄便携式无线充电设备Deuce 戴尔未来重心:云计算、大数据、移动互联与安全 【讲师】搜狐于顺治:Container在搜狐PaaS平台中的应用实践 【先锋】从代码层诊断,云端OneAPM平台让开发者专注开发 阿里将推无线领域重磅计划 阿里百川无线开放大会揭晓 提升网站转化率的四步优化方案 开发者应该了解的API技术清单! 【讲师】腾讯刘永峰:Docker时代,公有云面临的挑战和机遇 用"select top n"取了前n纪录后,要再接着取n+1至2n条纪录,接着再取2n+1至3n……,这种取法要怎样实现呢? 如何在Excel中编制一个宏? 如何得知程序的一个实例正在运行? 送分了,送分了,虽然不多,但天天有! 为什么select count(*) from test 时,提示表或示图不存在!!! 请问如何设置mp3文件的在线播放?? 请问在内部局域网正常的情况下,打印机无法共享(共享以后没有效果)的主要原因是什么?谢谢! ===我对Linux上的Oracle8.1.7.0.1操作的时候只读,为什么啊???==== 请给我一个GetCurrentDirectory使用实例, 问一个深入MFC的简单问题 请问有关delphi项目编译的一个小问题。 各位,那里有VisualAge for Java4.0下在?我从ibm的网站上下载了,但是安装不了,说是语言不对! shcv.dll 编译不过去!!!!! have a test!have a test!have a test!have a test!have a test!have a test!have a test!have a test! mysql 结果中再次查询如何才能实现呢 pc2phone java支持byte[] a = String.getBytes("iso-8859-1");转换吗? c语言中关于对windows命令调用的语法、命令及其格式。 怎么样捕捉数据库连接出错的信息?? 在SQL语句中,如何获得一汉字字段的字节长度,而不是字符长度?如“测试”返回4,不是2 如何建树 winsock.dll提供的都是什么函数?如果它提供的是winsockAPI,那么winsock32。lib提供的又是些什么?它们重复吗? FormatDateTime这个函数的日期间的字符不支持汉字,怎么解决? 关于用JAVA生成GIF的问题?(16M的GIF,256的我已经知道了) 如何在ACCESS李使用SQL? 梦天请进,谢谢! 能不能将对象序列化后存到数据库再取出还原?有没有例子? 分屏的已个视要做成对话框,请指教,顺便告诉我如何给分,只能给这么多 sorry,梦天进来,thanks!! 急!请问怎么在java类里写编译另一个类的语句?? 如何在ACCESS里使用SQL? 谁有BO2K源代码,我愿高分求购.不为别的目的,只为深入学习系统编程 如何实现 调用IE打开一个页面,并且多次调用,只打开一个窗口? 帮我点一下我就给分! 一个简单问题:我在给Access数据表中增加记录,其中一字段是CTime类型,但老是非法操作。调试后错误出现是:return (GetLocalTm(NULL)->tm_year) + 1900 不知如何解决。请各位大师救救我把。 动态的保存datawindow object的问题 怎么给一个(tab control)属性单 的标题栏上给添加一个背景位图呢! 千山一刀之忍者神龟进来拿分!!! 怎样得到年、月、日的值 那里有C++ Primer这本书 十万火急!!!怎么在oracle+developer2k中取得本机ip.——高分奉上!! 如何判断输入的信息是中文? dll调用找不到程序入口?? 怎么用win2000来制作一张可以代光盘启动的启动盘 我怎么用一个ALT 封装一个 ToolBar Control的 ActiveX的控件! 谁有什么好的例子吗! 给个意见,是联通好呢?还是移动好? Paramstr如何正确处理带空格的参数? 我在表中插入记录可流览时却见不到新插入的记录只有关闭程序然后重新运行才能看见新插入的记录. 用awt控件制作的下拉菜单,为什么在IE环境下无法正常显示? 请CommerceServer(商业秘密[::路德一族::])luojx(大鱼儿)koyia(koyia) 三位高手再去谁能单独解决~谁能独享100分!绝不食言(再详细点!)) 多项式除以多项式的法则,如:(2a^2*b^2+3ab^3)/(4a^2*b^5+2ab) 只含字母y的多项式最多有几项 谁帮我写一段程序啊!用JS求1-100之间的偶数之和的、、 正数的相反数是负数,这句话用符号表示是?急!在线等! 0.5是有几个千分之一组成的 程序填空:求100~200之间的偶数之和(存放在S中)的程序CLEARS=________X=100DO WHILE _________IF ___________________ENDIF X=_________ENDDO明天就考试了! 相反数用什么符号表示 已知A有12个约数,9A有24个约数,15A有36个约数,5A有几个约数 如图,一个梯形的面积是4/3平方米,阴影部分的面积是多少平方米上底5米下底8米的梯形 相反数怎么用符号表示总不会让我写字- -bu shi你们理解错了,比如:7的相反数是-7,,我知道是负号 已知A有12个约数,9A有24个约数,15A有36个约数今天我要交作业的!少写了,问A是几。 梯形的面积是25平方米 其他条件如图所示(上底是4米、下底是6米)求阴影部分的面积.一只三角形的底是6米 高未知 三角形的高就是梯形的高 想办法求出梯形的高 下列说法正确的是( )A.一个数的相反数是负数或0 B.符号不同的两个数互为相反数 C.非负数的相反数是非正数. D.相反数等于本身的数不止数0一个 只含有字母y的五次多项式合并后最多有 项,最少有 项 问:只含字母x的五次多项式,最多有()项,最少有()项. 下列说法哪个正确1符号不同的俩个数互为相反数2整数的相反数是分数3非负数的相反数是非正数.还有一个4一个数的相反数一定是负数 试至少写两个只含有字母x、y的多项式,且满足下列条件:(1)六次三项式;(2)每一项的系数均为1或-1;(3)不含常数项;(4)每一项必须同时含字母x、y,但不能含有其他字母. 四级要怎么提高这次四级我听力147 阅读160 综合39 写作63 总分409,差一点点!我知道写作很差 那要怎么重点复习翻译和作文呢?作文是不是字迹也很重要?听力也不是很好,请帮我综合分析下我要 多项式乘多项式法则 如图阴影部分的面积是96平方米,那么梯形的面积是多少平方米? 关于英语四级,请看一下如何才能在提高听力142 阅读127 综合38 写作98总分405 这是2013年6月份的成绩,下半年的题型还会改,请帮忙参谋参谋,我想下半年就过了.我想了解那部分应该重点加强以及 多项式和单项式的定义 多项式乘多项式法则的字母表达式 在首地址为DATA的字数组中,存放了100H个16位补码数,试编写一程序,求出它们的平均数,放在AX寄存器中,并求出数组中有多少个数小于此平均值勤,将结果放在BX寄存器中 单项式和多项式的概念是什么? 请问该如何设置windows的货币符号和数字格式? 为什么每段开头都要有mov ax,data mov ds,ax两句,不是有assume定义过段了吗可能是我表述得不够清晰,希望有善解人意的哥哥姐姐详细帮我解答下. c语言:编程统计数组a中的正数,0,负数的个数,并输出统计结果?(1)#include "stdio.h"int main(){int s[40],i=0,j,num=0,a=0,b=0,c=0;for (i=0;s[i]!='\n';i++ ){scanf("%d",&s[i]);num++; } for(j=0;j0) a++;else if (s[j]==0) b++;else c+ 在excel表中怎样将数据设置为货币格式,货币符号,小数点后位为1 1.测试AX寄存器中数据的符号位 2.将16位立即数2040H与地址为DATA存储单元中的数比较 用C语言编写程序,任意输入10个数,计算所有正数的和、负数的和以及这10个数的总和 1.一个由8个十,3个十分之一,8个千分之一组成,这个数写作( ) 1.游泳馆向一个长50米、宽25米、深1.6米的空游泳池里注水.经过0.6小时水深达0.2米,这样的话,几小时能把游泳池注满?(用比例知 一个数由5个十、3个一、7个千分之一组成的,这个数读作(),把它精确到十分位是() C语言写编程,输入10个数,分别计算正数和负数的和 我这程序哪里不对啊?#includemain(){int i=0;double x,sum1=0,sum2=0;for(i=0;i 一个数是由10个一,5个十分之一和3个千分之一组成的,这个数写作( ),读作( )保留一位小数是( ),保留两位小数是( ). 一个关于字母x和y的多项式,除常项式外,其余各项的次数是2,这个多项式最多有几项?都是三呢?分别写出一 如图,小正方形的七分之六被阴影覆盖,大正方形的九分之八被阴影覆盖,求小正方形与大正方形的面积比要式子 方法 过程 10个一.4个十分之一,8个千分之一组成的数写作(),精确到百分位约是() 已知一个关于字母a,b的多项式,每项次数都是3,这个多项式最多有几项,试写出一个若ab满足la+bl+(b-1)的平方=0,求你写出的多项式的值 如下图,阴影部分占小正方形面积的3分之1,占大正方形面积的5分之1,则小正方形的则小正方形的面积:大正方形的面积=( )【求做题方法或算式】 图中阴影部分的面积是48平方米,梯形的面积是多少平方米? 一个关于字母a,b的多项式,每项的次数都是3,这个多项式最多有几项?试写出一个符合要求的多项式. 一个小数由8个十,6个0.01和五个0.001组成8个十,6个0.01和5个0.001组成,这个小数是什么? X和Y皆为8位无符号二进制数,分别存在外部RAM的2000H和2001H 单元中,编写一能完成如下操作并把操作结果(设Z 一个关于字母X,Y,的多项式,每项的次数都是3.这个多项式最多有几项?写一个符合条件的多项式. 多项式除以多项式的法则是什么?因为我是初一的,所以可不可以请各位讲得简单点啊!比如说,2abc+2ab^2c+c^2+c^2b/c+cb 片外RAM区从1000H单元开始存有100个单元字节无符号数,找出最大值并存入1100H单元 504有多少个约数? 汇编语言问题 判断BUF中的数是正数,负数,还是0,并分别统计它们的个数判断BUF中的数是正数,负数,还是0,并分别统计它们的个数DATA SEGMENTBUF DB 1,-1,-2,-3,-0 A DB 0B DB 0D DB 0N EQU 5DATA ENDSCODE SEGMENTASSUME (2/2),从20H单元开始有一无符号数据块,其长度在20H单元中,求出数据块中最大值,并存入21H单元 已知一个关于字母a,b的多项式,每项次数都是3,这个多项式最多有几项,试写出一个符合要求的多项式,若a,b 在BUFF开始的存储区中存放30个带符号数,试统计其正数,负数和零的个数.分别将个数放至A1,A2,A3单元我知道大体思路,就是具体的程序不会写. 一个数是由5个十,6个十分之一25个千分之一组成的这个数写成小数是( ),计数单位是( ),包一个数是由5个十,6个十分之一25个千分之一组成的这个数写成小数是( ),计数单位是( ),包含( )个这样的 504中有几个约数,其中有多少个是3的倍数急急急快开开开 面积为30平方米的大正方形的四个角都是面积为3平方米的小正方形,用计算器求阴影部分的正方形边长 编一程序:比较两个无符号数的大小.把大数存入MAX单元不是C语言,是汇编语言的。麻烦再看看帮忙 求5544有多少个不同的约数?这些约数的和是多少? 多项式除以多项式的法则 如图,阴影部分的面积是96平方米,那么梯形的面积是多少平方米? 三个连续偶数的和在100到200之间,这样的连续偶数有几组
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn