求asp自动压缩文件夹成rar的。穷人分数不多，在线务求大神帮忙。


这个是文件路劲。根目录是website呢，求可行的压缩代码。
------解决方案--------------------

<%

'简单提一下，把Winrar.ext放到C:\WINDOWS\system32文件夹下，然后设置C:\WINDOWS\system32\cmd.exe与C:\WINDOWS\system32\winrar.exe文件IIS有读取运行权限。

Set WshShell = Server.CreateObject("WScript.Shell")

RetCode = WshShell.Run ("winrar a -ep c:\web\website\uploadpic\ c:\web\website\uploadpic\",1, False) '打包

'RetCode =WshShell.Run ("WinRAR x -r -o+ c:\web\website\uploadpic\*.rar c:\web\website\uploadpic\",1,True) 解压

If RetCode=0 Then Response.write "执行成功"

%>

------解决方案--------------------
当然不覆盖，你电脑里操作一下就会明白：存在相同的rar文件会执行添加功能,后压缩的文件直接加入同名的包里。
想要覆盖就自己FSO判断文件存在不存在，存在就先删除再压缩。