这个问题怎么搞？忙了好半天了。

[zlp321002]

dim path as string
path="E:\WEBROOT\FHYA\zlp"
Dim rarcomm = "c:\winnt\system32\cmd.exe /c " "C:\ProgramFiles\WinRAR\rar.exe"" x -t -o+ -p- "

Dim cmd = rarcomm + "path\bbs.rar path\bbs\"
我把参数代入就是不对。
不就是简单的自符路径相加吗？郁闷。。。

[zlp321002]

完整的代码如下:快点看看啊！
im rarcomm = "c:\winnt\system32\cmd.exe /c ""C:\Program Files\WinRAR\rar.exe"" x -t -o+ -p- "
Dim Shell = Server.CreateObject("WScript.Shell")
Dim path As String
path = "E:\WEBROOT\FHYA\zlp"
Try

'*解压rar文件 E:\sh.zip 不是 RAR 压缩档案,用给定的rar参数不能完成winrar对zip压缩包的解压
Dim cmd = rarcomm + "path\bbs.rar path\bbs\"
Dim RetCode = Shell.Run(cmd, 1, True)

'*解压rar文件
If RetCode = "0" Then
Response.Write(" winrar解开压缩文件成功！" & "<br><br>")
Else
Response.Write(" winrar解开压缩文件失败！" & "<br><br>")
End If

Catch
Response.Write("发生异常！")
End Try

[zlp321002]

师哥，师姐，我把问题解决了，才能回家啊！看看啊！

[CMIC]

Dim cmd as string
cmd= rarcomm + "path\bbs.rar path\bbs\"

[CMIC]

dim rarcomm as string
rarcomm= "c:\winnt\system32\cmd.exe /c ""C:\Program Files\WinRAR\rar.exe"" x -t -o+ -p- "
Dim cmd as string
cmd= rarcomm & "path\bbs.rar path\bbs\"

[zlp321002]

CMIC(大象)
终于来救星了，别走，多说说啊！
定义了，没用，不知道为什么？

[CMIC]

把字符串连接+号换成&,在试试

[zlp321002]

CMIC(大象)
还是不行，没解压缩。

[zlp321002]

dim rarcomm as string
rarcomm= "c:\winnt\system32\cmd.exe /c ""C:\Program Files\WinRAR\rar.exe"" x -t -o+ -p- "
Dim cmd as string
cmd= rarcomm + "e:\myjob\bbs.rar e:\myjob\bbs\"

绝对路径就可以，不知道为什么？
我的意思也就是替换一下，你看看，哪儿有问题。留步好吗？

[zlp321002]

程序改成上面的就可以了，为什么？

[CMIC]

执行成功了吗?有没有什么错误返回?

[zlp321002]

没执行啊。为什么？

[CMIC]

我没看清你的程序,这么改准行
cmd= rarcomm & path & "\bbs.rar " & path &"\bbs\"

[zlp321002]

我试试看，你等等，好心人。

[zlp321002]

还是不行啊？为什么？