试用了ASP调用shell解压ZIP，RAR文件

作者:wbc 日期:2006-06-05

字体大小: 小中大

嗬嗬。。前几天做bababian插件的是侯，发现bababian可以上载rar或zip文件，并自动解压。
虽然之前也见过，但始终没有去研究。这次无聊，真想去试试看这个实用的功能。
在网上搜索了一下，找到了一些代码。。

代码类型：ASP [复製]

dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fso 
Mlpath=Server.mappath("../WinRAR")&"/"'存放RAR.EXE和CMD.EXE的路径 
ylj=Server.mappath("test")&"/"'解压文件后所放的路径 
ywj=Server.mappath("a.rar")'要解压的RAR文件 
Set Shell = Server.CreateObject("WScript.Shell")
rarcomm= Mlpath&"/cmd.exe /c "&Mlpath&"/winrar.exe x -t -o+ -p- "
cmd=rarcomm&ywj&" "&ylj
RetCode = Shell.Run(cmd,1, True)

。。经过测试。。终于成功了！
有心机的时候一定把它运用上。

[本日志由 wbc 于 2008-04-28 12:49 AM 编辑]