请教一个关于上传文件自动压缩的问题

[Caronchan]

我有一个上传的组件，我想等别人上传文件到那些指定的文件夹后自动对他们上传的文件压缩，请问有没有相关的代码呢？或者有没有相关的资料？谢谢

[Caronchan]

thanks！

[look4sword]

用RAR还是挺方便的。

[davs]

<%
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)
%>