vb解压代码

❶ 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" 这个文件夹中。注意，在字符串中要用两个双引号""代表一个双引号"
如果要用变量来存储路径，可以这样：
rarExe = "C:\Program Files\WinRAR\Rar.exe" 'winrar的命令行版

rarFile = "D:\My Documents\xx.rar" '要解压的rar文件
deComFile = "*.*" '要解压的文件，可以用通配符

desPath = "D:\My Documents\a" '文件释放的路径
Shell """" & rarExe & """ x """ & rarFile & """ " & deComFile & " """ & desPath & """", vbHide

❷ 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里怎么实现压缩文件与解压文件的操作

利用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)

❹ 求高手帮助，用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" 'winrar.exe的路径

Source = "d:\try.rar" '压缩文件的路径
Path1 = "d:\" '解压缩后的地址

FileString = Rarexe & " X " & Source & " " & Path1

Result = Shell(FileString, vbHide)

End Sub

按楼主的文件:
将代码改成:
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" '这个要改成你的系统中winrar的安装路径,我的在D盘.一般位置在C:\program files\winrar\winrar.exe
Source = "c:\downloads\学习.rar" '学习.rar的路径
Path1 = "d:\downloads\学习" '解压后的路径
FileString = Rarexe & " X " & Source & " " & Path1
Result = Shell(FileString, vbHide)
End Sub

这样就ok了

❺ VB Unrar.dll解压RAR文件

==winrar
的安装目录中一个unrar.exe，是个dos程序，可以单独直接调用，不依赖rar环境
==尽量不要操作Windows目录，在Windows7下会出现操作权限问题，可能导致失败
Private
Sub
Command1_Click()
Shell
("z:\unrar.exe
x
-o+
-r
z:\file.rar
z:\")
End
Sub
=========
核心内容都在这里了，自己发挥下吧。

❻ vb 如何解压rar文件

Option Explicit
Dim mystr As String
Dim Source As String
Dim Target As String
Dim retval
Private Sub Command1_Click() '压缩
mystr = "C:\Program Files\WinRAR\winrar.exe"
Source = "d:\1234"
Target = "d:\555.rar"
mystr = mystr & " a " & Target & " " & Source
'Source = App.Path & "\111.jpg"
'Target = App.Path & "\111.rar"
retval = Shell(mystr, vbHide)
End Sub

Private Sub Command2_Click() '解压缩
mystr = "C:\Program Files\WinRAR\winrar.exe"
Source = "D:\aa\123.rar"
Target = "E:\aa"
mystr = mystr & "X" & Source & " " & Target
Text1.Text = mystr
retval = Shell(mystr, vbHide)
End Sub

❼ 怎么用VB解压Zip文件

调用shell、已安装的WinRar解压文件。Shell "C:\Program Files\WinRar\Winrar.exe " & "命令行参数"命令行语法 从命令行也可以运行 WinRAR 命令，常规的命令行语法描述如下:WinRAR <命令> -<开关1> -<开关N> <压缩文件 > <文件...> <@列表文件...> <解压路径\>命令要 WinRAR 运行的字符组合代表功能开关切换操作指定类型，压缩强度，压缩文件类型，等等的定义。 压缩文件要处理的压缩文件名。文件要处理的文件名。列表文件列表文件是包含要处理文件名称的纯文本。文件名应该在第一卷启动。可以在列表文件中使用 //字符后添加注释。例如，你可以包含两列字符串创建 backup.lst: c:\work\doc\*.txt //备份文本文档 c:\work\image\*.bmp //备份图片c:\work\misc并接着运行: winrar a backup @backup.lst你可以在命令行中同时指定普通的文件名和列表文件名。 解压路径只与命令 e 和 x ，搭配使用。指出解压文件添加的位置。如果文件夹不存在时，会自动创建。
注意事项a) 如果未指定 文件 或是 列表文件 时，WinRAR 将会以缺省的 *.* 运行全部的文件;b) 如果未指定压缩文件扩展名时，WinRAR 将会使用在 压缩配置 中选定的默认压缩文件格式。但你可以指定 .RAR 或 .ZIP 扩展名来替换它们 ;c) 在命令行所输入的开关会替换相同的配置设置值 ;d) 在命令 c 、e、s、t、rr、k 和 x 可在压缩文件名中使用通配符。如此可以用单个的命令来进行超过一个以上的压缩文件，除此之外，如果你指定 -r 开关于这些命令时，它们将会搜索在子文件夹中的压缩文件 ;e) 某些命令和开关只应用在 RAR 压缩文件，有些则在 RAR 和 ZIP 都可使用，而某些则可应用在全部的压缩文件格式。这一些都得看压缩文件格式所提供的特性而定 ;f) 命令和开关的大小写是相同意思的，你可以用大写或者小写来下命令均可。

❽ vb 怎么压缩,解压文件,就是rar或者zip,给我源码,还有调用哪个dll

其实无需调用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\WinRAR\rar.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:\temp", vbHide)
End Sub

❾ vb怎么解压

'一、建立模块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:\tmp下。
RarExect "c:\winrar\winrar.exe e -y " & ShortPath("c:\mydoctment file\blank.zip" & " " & ShortPath("d:\tmp")
end sub

❿ VB 压缩或解压文件

在VB中用shell调用winrar目录中的rar.exe（压缩）或unrar.exe（解压缩）即可。具体参数看winrar的说明。
可以把rar.exe、unrar.exe这两个文件复制到自己程序所在目录，以方便使用。
例如解压缩123.rar文件：
shell "unrar.exe x -inul 123.rar",vbhide