Question

VB怎么解压RAR文件

Source = App.Path & "\fCJ\" & txtName & ".rar"
Target = App.Path & "\fCJ\"
mystr = App.Path & "\WinRAR\WinRAR.exe" & " e " & Source & " " & Target
retval = Shell(mystr, vbHide) '解压
运行后老是提示没有找到压缩文件
谢谢！

Answer 1

Source = """" & App.Path & "\fCJ\" & txtName & ".rar"""
Target = """" & App.Path & "\fCJ\"""
每个地址参数要放在双引号中，有些地址本身有空格，而它的参数也是以空格分隔的。
第一个程序参数没有引号倒也可以。