怎么用VB解压Zip文件?
'一、建立模块MDWinrar.bas,复制下面代码
Declare Function WaitForSingleObject Lib "kernel32" _
(ByVal hHandle As Long, ByVal dwMilliseconds As Long) _
As Long
Declare Function OpenProcess Lib "kernel32" (ByVal _
dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Declare Function GetShortPathName Lib "kernel32" Alias _
"GetShortPathNameA" (ByVal lpszLongPath As String, _
ByVal lpszShortPath As String, ByVal cchBuffer As _
Long) As Long
Private Const INFINITE = -1&
Private Const SYNCHRONIZE = &H100000
Sub RarExect(Rarml As String) '等待winrar解压结束
Dim TaskID As Long ' Task-ID des DOS-Fensters
Dim ProcID As Long ' Prozess-ID des DOS-Fensters
TaskID = Shell(Rarml, vbHide)
DoEvents
ProcID = OpenProcess(SYNCHRONIZE, False, TaskID)
Call WaitForSingleObject(ProcID, INFINITE)
End Sub
'二、程序调用如下:
private command1_click()
'本功能执行了把c:\mydoctment file\blank.zip文件解压到d:mp下。
RarExect "c:\winrar\winrar.exe e -y " & ShortPath("c:\mydoctment file\blank.zip" & " " & ShortPath("d:mp")
end sub
其实无需调用DLL,现在只要系统中安装了WinRAR,其安装目录自带了压缩和解压软件:Rar.exe、UnRAR.exe,使用VB的shell调用这两个软件即可,WinRAR支持的格式非常多,不用自己再去造轮子了,下面是简单的示例代码:
注:如果不想安装WinRAR,那就到已安装WinRAR的电脑中将拷贝到你的某个路径中再调用吧
'将C盘根目录中的mydoc.docx文件,压缩成根目录下的mydoc.rar文件
'使用rar.exe,调用格式:rar.exe a
Private Sub Command1_Click()
Call Shell("C:\Program Files\WinRARar.exe a c:\mydoc.rar c:\mydoc.docx", vbHide)
End Sub
'将C盘根目录下的mydoc.rar压缩包中的文件,解压到D盘一个目录中
'使用unrar.exe,调用格式:unrar.exe x
Private Sub Command2_Click()
Call Shell("C:\Program Files\WinRAR\unrar.exe x c:\mydoc.rar d:emp", vbHide)
End Sub
注意事项a) 如果未指定 文件 或是 列表文件 时,WinRAR 将会以缺省的 *.* 运行全部的文件;b) 如果未指定压缩文件扩展名时,WinRAR 将会使用在 压缩配置 中选定的默认压缩文件格式。但你可以指定 .RAR 或 .ZIP 扩展名来替换它们 ;c) 在命令行所输入的开关会替换相同的配置设置值 ;d) 在命令 c 、e、s、t、rr、k 和 x 可在压缩文件名中使用通配符。如此可以用单个的命令来进行超过一个以上的压缩文件,除此之外,如果你指定 -r 开关于这些命令时,它们将会搜索在子文件夹中的压缩文件 ;e) 某些命令和开关只应用在 RAR 压缩文件,有些则在 RAR 和 ZIP 都可使用,而某些则可应用在全部的压缩文件格式。这一些都得看压缩文件格式所提供的特性而定 ;f) 命令和开关的大小写是相同意思的,你可以用大写或者小写来下命令均可。
VB如何后台压缩文件夹。。
winrar完全版安装以后,到安装后的文件夹里有一个Rar.exe。把rar.exe复制到你exe同目录下,然后用语句 shell "rar.exe a *.* data.rar" '这命令式压缩 解压用这个 shell "rar.exe e data.rar"这个rar.exe命令行参数也发给你吧 RAR 3.70 beta 6 Copyright (c) 1993-2007 Alexander ...
求高手帮助,用VB如何将指定文件解压到指定文件夹
Private Sub Command2_Click()Dim Rarexe As String 'WINRAR执行文件的位置 Dim Source As String ' 解压缩前的原始文件 Dim Target As String ' 解压缩后的目标文件 Dim FileString As String 'Shell指令中的字符串 Dim Result As Long Rarexe = "D:\\Program Files\\WinRAR\\WinRAR.exe" '...
...同压缩解压组件控件的性能对比报告zlibdllinfozipxceedzip
VB中使用三种不同组件进行内存解压的结果分析比较 本文采用三种不同软件公司的动态链接库组件,分别进行内存解压缩实验,这三种组件分别是:1、 使用zlib 软件公司的zlib.dll动态链接库组件进行内存解压 2、 使用info-zip软件公司的vbuzip10.dll(也就是unzip32.dll)动态链接库组件进行内存解压 3...
vb怎么调用rar解压文件名带空格的文件
把文件名用双引号括起来即可,比如:Shell """C:\\Program Files\\WinRAR\\Rar.exe"" x ""D:\\My Documents\\xx.rar"" *.* ""D:\\My Documents\\a""", vbHide 以上代码是把 "D:\\My Documents\\xx.rar" 这个压缩文件中的所有文件(含路径)全部解压缩到 "D:\\My Documents\\a" 这个文件夹中。
vb中我想调用rar.exe解压文件,我输入代码后运行,找不到解压文件
要加双引号的啊,要不路径 中有空格,就提示找不到文件了。source = App.Path & "\\cad.rar"target = App.Path 改成 source = Chr(34) & App.Path & "\\cad.rar" & Chr(34)target = Chr(34) & App.Path & Chr(34)
vb如何调用Windows自带的压缩工具给zip文件加密
系统自带那个zipfldr.dll没有公开接口,用命令行运行rundll32 zipfldr.dll,RouteTheCall zipfile可以打开那个界面。至于vb或者其它语言中一般都是内置压缩模块或者其它压缩解压缩控件来完成的,比如http:\/\/www.vbaccelerator.com\/home\/VB\/Code\/Libraries\/Compression\/Zipping_Files\/article.asp ...
如何给程序VB打包,我想把一个小的程序打包成,免安装,解压就可以用的软件...
用winrar。1.先将exe及相关文件压缩到一个rar文件;2.打开这个压缩了rar文件,创建为自解压格式;3.解压模式设置为“解压到临时文件”,安静模式设置为“全部隐藏”;4.解压后运行设置为你的主exe文件。
安装VB的时候让输入产品ID号,怎么输
具体方法如下:1、首先下载好VB6.0中文企业版,下载好后,点击“解压”2、解压完成后,点击“SETUP.EXE”安装程序 3、在VB6.0中文企业版安装界面,点击“下一步”4、选择“我接受协议”,并点击“下一步”5、在产品号和用户ID号界面输入“111-1111111”,“姓名”可以自由填写,填写完成后点击“下...
vb6.0怎么 解压
你是想问怎样通过编程解压一个压缩包吗?可以把winrar安装目录下的rar.exe拷贝到你的源代码目录,然后用shell命令调用,具体帮助在winrar安装目录下的rar.txt中
用VB移动压缩包内的文件,见【问题补充】
Private Sub Command2_Click()Dim Rarexe As String 'WINRAR执行文件的位置 Dim Source As String ' 解压缩前的原始文件 Dim Target As String ' 解压缩后的目标文件 Dim FileString As String 'Shell指令中的字符串 Dim Result As Long Rarexe = "D:\\Program Files\\WinRAR\\WinRAR.exe" '...
凭腾谷丙: 你可以copy一个winrar.exe到vb程序同目录,然后shell调用app.path & "/winrar.exe"来解压 ________________________ 不是浪费的问题 而是默认的打开压缩文件不是解压文件,也就是只打开个窗口而已,没有什么意义 所以还不如直接复制个winrar或者7zip一类的解压呢
上饶县19550949581: 在vb里怎么实现压缩文件与解压文件的操作 - ?
凭腾谷丙: 利用winrar 解压文件:Call Shell( "C:\Program Files\WinRAR\rar.exe e -o+ E:\Ab.rar E:\ ", vbHide) 压缩文件:Call Shell( "C:\Program Files\WinRAR\rar.exe a -o+ E:\aa.rar E:\Ab.txt ", vbHide)
上饶县19550949581: 如何用VB编写压缩与解压缩的程序 - ?
凭腾谷丙: 自己编写一个好的压缩与解压缩程序,算法是相当复杂的,如果只是想把多个文件打个包并不难,把多个文件写入一个二进制文件即可,当然这里面也要有文件名如何保存,每个文件到哪结束等的问题. 最简单的方法是调用第三方软比如zip等,建议调用ARJ.EXE或LHARC.EXE因为它们只一个文件并且体积都很小压缩比也不错.
上饶县19550949581: rar文件密码怎么解开?vb - ?
凭腾谷丙: 在一些批处理任务的应用程序如安装程序中,需要对压缩文件进行解压缩处理.VB来实现对压缩文件格式,如RAR、Zip等文件的解压缩,总的来说,有以下两种方法:一、 采用winrar命令行 一般来说,安装好winrar后,在安装目录中,有个名...
上饶县19550949581: vb怎么解压 - ?
凭腾谷丙: '一、建立模块MDWinrar.bas,复制下面代码Declare Function WaitForSingleObject Lib "kernel32" _(ByVal hHandle As Long, ByVal dwMilliseconds As Long) _As Long Declare Function OpenProcess Lib "kernel32" (ByVal _...
上饶县19550949581: 在VB中怎么可以解压缩文件? - ?
凭腾谷丙: 在Visual Basic中开发应用程序时,可能会需要在磁盘上创建一 个临时目录或文件,本文介绍如何在VB中创建临时文 件.使用GetTempFileName函数Windows API函数中的GetTempFileName函数可以用来在指定的磁 盘驱动器上创建一个新的...
上饶县19550949581: VB可用的,有些什么可以解压带密码zip文件的控件 - ?
凭腾谷丙: 要解带密码的压缩文件,首先需要文件密码,否则是做无用功. 至于解压缩VB可使用API函数实现.
上饶县19550949581: VB如何调用winrar程序创建自解压缩文件并自动解压 - ?
凭腾谷丙: shell “winzip xxx.xxx" 路径、参数自己加上去.
上饶县19550949581: 如何使用vb获取压缩文件里面的目录内容 - ?
凭腾谷丙: 新手做这个有难度. 应该先了解ZIP文件结构,知道文件结构后,你就知道你要的数据在文件中的什么位置,就能读取想要的数据了. ZIP文件结构 http://www.utf.com.cn/article/s1045
上饶县19550949581: 一个rar 格式的文件能不能不要密码就解开 - ?
凭腾谷丙: 如果你还知道下载的网址的话,你可以去看看,应该有密码的,或者,你可以试试密码是 他的网址,再者,当你双击解压时,在解压框的右边有软件的部分提示,里面有时会告诉你密码的!