刚刚查了一下
WinZip Command Line Support Add-On Release 1.0URL:
http://www.winzip.com/wzcline.htm
WinZip Command Line Support Add-On Release 1.0URL:
http://www.winzip.com/wzcline.htm
解决方案 »
- vb6.0传参数给web server的问题
- bcp 命令可以详细的介绍吗?我的用法为什么不行/
- 关于显示GIF动画图片?
- 如何选择数据类型,使SQL Server与Oracle兼容?
- 关于窗体设计
- 请教:如何在text里选中一部分文字,而且可以对选中的文字进行改变字体.在线等候.谢谢.
- 请问我如何给一个控件添加一个事件
- 如何使MDI子窗体中的菜单显示和父窗体的显示不冲突?等待中!!
- 请问用VB实现DTS功能时,怎样设定程序执行的时间
- 做個調查,平時一般用什麼控件顯示數據記錄?
- VB里日期写到Access数据库日期型字段里后发现识别错了,明明是2002-4-1,写到ACCESS里后成了01-2-4
- 请问如何用winsock通信获取客户端屏幕?
http://www.21code.com/codebase/?pos=list&type=search&key=ZIP
如何在 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