我想在线删除压缩包中的*.ASP文件，为什么不成功呀

请教： 
dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fso unfilepath=Request.ServerVariables("PATH_INFO") 
'存放RAR.EXE和CMD.EXE的路径 
Mlpath=Replace(Server.mappath(unfilepath),"rar.asp","") afterzip=Server.mappath("dos")&"\" 
ylj=afterzip 
'要压缩的RAR文件 
needzip=Server.mappath("admin.rar") 
ywj=needzip Set Shell = Server.CreateObject("WScript.Shell") rarcomm= Mlpath&"cmd.exe /c "&Mlpath&"rar.exe d"&" "&ywj&" *.asp" cmd=rarcomm response.write cmd 
retcode= Shell.Run(cmd，1，true) 
response.write retcode 
总是不执行，而且返回的retcode=2 
如果直接执行那个CMD命令没有错误