壓縮：
<%
Dim CmdDir,RarNameDir,RarSource
CmdDir=Server.MapPath(“dos”)&”” ‘//cmd.exe和rar.exe存放的路徑
RarNameDir=Server.MapPath(“data”)&”MMGG” ‘//壓縮為”MMGG.rar”
RarSourceDir=Server.MapPath(“data”)&”” ‘//將整個(gè)”AA”文件夾壓縮
Call Rar(CmdDir,RarNameDir,RarSourceDir)

Sub Rar(ByVal CmdDir,ByVal RarNameDir,RarSourceDir)
   Dim Cmd,Shell
   Cmd=CmdDir&”cmd.exe /c “&CmdDir&”Rar.exe a  -ep1 -o+ ” ‘// -ep1 -o+分別為兩個(gè)開關(guān)命令具體可參考WinRar的幫助
   Cmd=Cmd&RarNameDir&” “&RarSourceDir
   On Error Resume Next
   Set Shell = Server.CreateObject(“WScript.Shell”)
   If Err or IsObject(Shell)=False Then
      If Err Then Err.Clear
      Response.Write “沒有操作Shell權(quán)限…”
      Response.End
   End If
   On Error Resume Next
   Shell.Run Cmd,1,True
   If Err Then
      Err.Clear
      Response.Write “壓縮文件時(shí)出錯(cuò)，可能沒有操作權(quán)限”
      Response.End
   End If
End Sub
%>

解壓：

<%

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

Mlpath=server.MapPath(“dos”)&””    ‘存放RAR.EXE和CMD.EXE的路徑

ylj=Server.mappath(“data”)&””  ‘解壓文件后所放的路徑

ywj=Server.MapPath(“data”)&”MMGG.rar”  ‘要解壓的RAR文件

Set Shell = Server.CreateObject(“WScript.Shell”)

rarcomm=Mlpath&”cmd.exe /c “&Mlpath&”rar.exe x -t -o+ -p- “

cmd=rarcomm&ywj&” “&ylj

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

%>