怎样把多个文件制成压缩包

把多个文件制成压缩包的步骤为：

一、首先我们在桌面上单击鼠标右键，点击新建，选择文件夹，新建一个文件夹。

二、然后我们点击打开我们刚新建好的文件夹，然后我们把要压缩的所有文件都复制粘贴到我们刚新建的文件夹内。

三、确认无遗漏的后，我们关闭文件夹，返回桌面，然后在鼠标右键单击选中文件夹，在d出的内容框里选择”添加到压缩文件”选项。

四、接着在此压缩文件名和参数里，我们可以进行修改压缩文件的文件名，修改完成后，我们再点击下面的确定。

五、然后我们就可以在桌面上看到经多个文件制成的一个压缩包了。

服务器用WScript.Shell组件调用winrar中的rar.exe，在代码的同目录要上传cmd.exe和rar.exe

用法：rar.ASP?path=要压缩的文件夹&rarname=压缩后的文件名&includefolder=包括子文件夹就不会空

<%

'用法http://xx/rar.ASP?path=要压缩的文件夹&rarname=压缩后的文件名&includefolder=包插子文件夹就不会空，

on error resume next

AppPath=server.mappath(".")&"\" '存放RAR.EXE和CMD.EXE的路径

zipfolder=server.mappath(request("path"))&"\" '要压缩的文件或文件夹

rarfile = request("rarname")

thispath = server.mappath(".")&"\"

if zipfolder<>"" and rarfile<>"" then

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

if err.number<>0 then

response.write "服务器不支持"

response.end

end if

if request("includefolder")<>"" then

cmd= thispath&"cmd.exe /c "&thispath&"rar.exe a -ep1 -r -t -o+ "&thispath&rarfile&" "&zipfolder &""

else

cmd= thispath&"cmd.exe /c "&thispath&"rar.exe a -ep1 -t -o+ "&thispath&rarfile&" "&zipfolder &""

end if

'response.write cmd

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

response.write "<a href='"&rarfile&"'>"&rarfile&"</a>"

if err.number<>0 then

response.write "<a href='"&rarfile&"'>"&rarfile&"</a>"

else

response.write err.description

end if

else

response.write "没有参数"

end if

%>

用户需要在电脑中安装一款压缩软件，安装后的 *** 作步骤如下：

1、将要压缩的文件放置于同一个文件夹下；

2、选定要压缩的文件；

3、在其中一个文件上右击，选择添加到压缩文件；

4、可修改压缩文件名称，默认保存于当前文件夹，点击确定等待完成即可。

---