如何把一个文件夹压缩成RAR文件！

er1981 2003-12-30 02:08:59

我现在有一个文件夹我如何利用ASP程序自动把文件夹压缩成一个RAR的文件！

谢谢大家的帮助！

...全文

592 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

Equn 2003-12-30

打赏
举报

一样的原理，你看看rar.exe的命令行参数吧
http://soft.mesky.net/infoview/Article_984.html

er1981 2003-12-30

打赏
举报

但是我要压缩的是文件夹啊！

xeimm 2003-12-30

打赏
举报

找到一个例子你看看

http://www.blueidea.com/tech/program/2003/1452.asp

xeimm 2003-12-30

打赏
举报

用这断代码是不是在服务器上要用特殊的权限？？？？

er1981 2003-12-30

打赏
举报

cmd = "F:\Project\web\homework\dos\rar.exe a -ep1 F:\Project\web\homework\files\tmp\collection.rar F:\Project\web\homework\files\158.rar"

是什么意思啊！能不能详细解释一下啊！

yangzixp 2003-12-30

打赏
举报

<%
Set Shell = Server.CreateObject("WScript.Shell")
cmd = "F:\Project\web\homework\dos\rar.exe a -ep1 F:\Project\web\homework\files\tmp\collection.rar F:\Project\web\homework\files\159.rar"
suc = Shell.run(cmd, 1, true)

if suc <> 0 then
response.write "失败!<br>"
else
response.write "成功！<br>"
end if

cmd = "F:\Project\web\homework\dos\rar.exe a -ep1 F:\Project\web\homework\files\tmp\collection.rar F:\Project\web\homework\files\158.rar"
suc = Shell.run(cmd, 1, true)

if suc <> 0 then
response.write "失败!<br>"
else
response.write "成功！<br>"
end if

%>

这样的程序，当目标文件collection.rar不存在时，第一个运行正常，第二个就不行了。
当collection.rar存在时，两个都不行了