vb解压
㈠ VB解压ZIP
其它语言可以吗?我只会用delphi,VB太麻烦,还要调用DLL,你也可以用winrar的自解压来解决.
已经完成,请下载测试.链接在给你的消息中.
㈡ vb怎么解压rar
可以调用WinRar文件夹里自带的RarExt.dll库文件，里面有一些函数，可以完成压缩与解压缩功能，函数的使用方法可以参考相关资料。
㈢ vb直接解压zip文件
你可以一个winrar.exe到vb程序同目录,然后shell调用app.path & "/winrar.exe"来解压
________________________
不是浪费的问题
而是默认的打开压缩文件不是解压文件,也就是只打开个窗口而已,没有什么意义
所以还不如直接复制个winrar或者7zip一类的解压呢
㈣ vb解压压缩文件
用vb解压？有现成的压缩-解压软件啊，如WINRAR,WINZIP等等，为什么要用VB？
㈤ 用vb解压缩
使用winRAR的接口就行了
用shell来调用
shell "rar x -ad *.rar data\"
就是把当前目录下的所有压缩文件解压缩到data目录下
㈥ 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怎么压缩解压文件
推荐采用免费的DOS版RAR程序，然后用SHELL "命令行" 的方式压缩解压文件，我就这么干的，做起来方便很多。
㈧ 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解压的问题。
改成：
Private Sub U()
Shell "unrar.exe e -y -inul " & F
End Sub
用法: unrar <命令> -<开关 1> -<开关 N> <压缩文件> <文件...>
<@列表文件...> <解压路径\>
<命令>
e 解压压缩文件到当前目录
l[t,b] 列出压缩文件[技术信息,简洁]
p 打印文件到标准输出设备
t 测试压缩文件
v[t,b] 详细列出压缩文件[技术信息,简洁]
x 用绝对路径解压文件
<开关>
- 停止扫描
ac 压缩或解压后清除存档属性
ad 添加压缩文件名到目标路径
ai 忽略文件属性
ap<格式> 添加路径到压缩文件中
av- 禁用用户身份校验
c- 禁用注释显示
cfg- 禁用读取配置
cl 名称转换为小写
cu 名称转换为大写
dh 打开共享文件
ep 从名称中排除路径
ep3 扩展路径为包含盘符的完全路径
f 刷新文件
id[c,d,p,q] 禁用消息
ierr 发送所有消息到标准错误设备
inul 禁用所有消息
ioff 完成一个操作后关闭 PC 电源
kb 保留损坏的已解压文件
n<文件> 仅包含指定的文件
n@ 从标准输入设备读取文件名到包括
n@<列表> 包含在指定的列表文件中列出的文件
o[+|-] 设置覆盖模式
oc 设置 NTFS 压缩属性
or 自动重命名文件
ow 保存或恢复文件所有者和组
p[密码] 设置密码
p- 不询问密码
r 递归子目录
ri<P>[:<S>] 设置优先级(0-默认,1-最小..15-最大)和以毫秒为单位的休眠时间
sl<大小> 处理小于指定大小的文件
sm<大小> 处理超过指定大小的文件
ta<日期> 添加日期 <日期> 后修改的文件,日期格式 YYYYMMDDHHMMSS
tb<日期> 添加日期 <日期> 前修改的文件,日期格式 YYYYMMDDHHMMSS
tn<时间> 添加 <时间> 以后的文件
to<时间> 添加 <时间> 以前的文件
ts<m,c,a>[N] 保存或恢复文件时间(修改,创建,访问)
u 更新文件
v 列出所有卷
ver[n] 文件版本控制
vp 每卷之前暂停
x<文件> 排除指定的文件
x@ 从标准输入设备读取要排除的文件名
x@<列表> 排除在指定的列表文件中列出的文件
y 假设对全部询问都回答是
㈩ 怎么用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) 命令和开关的大小写是相同意思的，你可以用大写或者小写来下命令均可。