在VB中,使用SHELL,,调用WINRAR,不能正常解压缩文件,请高手帮忙看一下.
tgc99 2006-12-24 08:10:20 运行完,会报错."没有文件被压缩",,请高手帮忙一下...
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 = "c:\Program Files\WinRAR\WinRAR"
Source = "C:\vbRAR\aaa.rar"
Target = "C:\vbRAR\aaa.xml"
FileString = Rarexe & " e " & Source & " " & Target
Result = Shell(FileString, vbHide)
end sub