关于asp在线压缩与解压缩的问题

[heartsearu]

<%
'==========
'解压所程序
Dim Toolpath,Afterpath,Shell
Toolpath=Server.Mappath(".\")&"\RarFile\TOOL\"'存放RAR.EXE和CMD.EXE的路径
Response.Write Toolpath
'解压文件后所放的路径
afterunzip=Server.Mappath(".\")&"\RarFile\"&FolderName&"\"&FolderName
Response.Write afterunzip
'要解压的RAR文件
PEDM=TargetFile
Response.Write PEDM
Set Shell = Server.CreateObject("WScript.Shell")
rarcomm= Toolpath&"cmd.exe /c "&Toolpath&"\rar.exe x -t -o+ -p-"
cmd=rarcomm&" "&PEDM&" "&afterunzip
RetCode = Shell.Run(cmd,1, True)
%>

‘压缩程序
Toolpath=Server.Mappath(".\")&"\FO_FILE_PDF\TOOL"

NeedFolder=Path&"_RAR"

Afterpath=Path
Set Shell = Server.CreateObject("WScript.Shell")
rarcomm = Toolpath&"\CMD.EXE /c "&Toolpath&"\WinRAR.exe a -r -p123 -o+ "
cmd = rarcomm&" "&NeedFolder&" "&Afterpath
RetCode = Shell.Run(cmd,1, True)

我调试了，压缩程序是好的，没有问题的，但是解压缩程序却提示：80070002错误，好像是跟权限有关，我不太懂，问明白人！

[jspadmin]

FolderName是什么目录？具体是什么。可能是因为这个目录不存在引起出错，你改成具体某个测试目录试试

[heartsearu]

换成具体的目录我也试过了，也是不行的