ASP在服务器自动解压RAR文件

2018-09-06 09:48

阅读:930

  <%

  dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fso

  Mlpath=E:\page\mian\ 存放RAR.EXE和CMD.EXE的路径

  ylj=Server.mappath(mian)&\ 解压文件后所放的路径

  ywj=Server.mappath(mian\apathy.rar) 要解压的RAR文件

  Set Shell = Server.CreateObject(WScript.Shell)

  rarcomm= E:\page\mian\cmd.exe /c &Mlpath&rar.exe x -t -o+ -p-

  cmd=rarcomm&ywj& &ylj

  RetCode = Shell.Run(cmd,1, True)

  %>

   就是用Server.CreateObject(WScript.Shell)来执行CMD.EXE来运行RAR.EXE文件来解压RAR文件的。

  


评论


亲,登录后才可以留言!