asp利用winrar解压缩文件
2015-07-22 13:15
453 查看
'当前文件夹路径 server.MapPath("./") '网站根目录 server.MapPath("/") Dim strZipFolder ' 待压缩的文件夹 Dim strRarFile ' 生成的压缩文件名 Dim strUnZipFolder ' 解压文件夹 Dim strCmd ' 命令行 strZipFolder = Server.MapPath("./") & "\1.txt" strRarFile = Server.MapPath("./") &"\"& "Test.Rar" strUnZipFolder = Server.MapPath("./UnZip") & "\" ' 构造命令行 '----------------------------------------------- '使用参数说明 '命令 A - 添加文件到压缩文件 '命令 X - 以完整路径名称从压缩文件解压压缩 '开关 -IBCK - 在后台运行 WinRAR '开关 -R - 连同子文件夹 '开关 -EP1 - 从名称中排除主文件夹 '开关 -Y - 假设全部的询问回应皆为“是” '------------------------------------------------ If Request.QueryString("act") = "zip" Then ' Fso测试用,生成压缩文件前删除同名文件. ' 这里也许可以有开关设置可以直接覆盖原文件的,没找着,反正这里主要是看如何调用外部程序的. Dim objFso Set objFso = Server.CreateObject("Scripting.FileSystemObject") If objFso.FileExists(strRarFile) Then objFso.DeleteFile(strRarFile) Set objFso = Nothing strCmd = "winrar a -ibck -r -ep1 -y " & strRarFile & " " & strZipFolder '压缩 Else strCmd = "winrar x -ibck -r -y " & strRarFile & " " & strUnZipFolder '解压 End If '执行命令行 Dim objShell Dim intSecceed Set objShell = Server.CreateObject("WScript.Shell") Response.Write(strCmd & "<hr>") intSecceed = objShell.Run(strCmd,0,True) If intSecceed = 0 Then Response.Write("命令成功执行,返回码:" & intSecceed) Else Response.Write("命令执行失败,返回码:" & intSecceed)
相关文章推荐
- asp.net MVC 3/4 equivalent to a response.filter
- ASP.NET中图片显示方法实例
- ASP.NET MVC4中调用WEB API的四个方法
- GridView、Repeater合并单元格
- Asp.net MVC Request Life Cycle
- ASP.NET MVC验证 - 自定义验证规则、验证2个属性值不等【待验证】
- asp.net c# 断点续传 下载 Accept-Ranges
- 如何使用ASP.NET中的类库实现邮件的发送
- 文件写入文件分布式系统(asp.net C#)
- asp.net IsPostBack 简述
- ASP.NET GridView 自增編號
- 7 天玩转 ASP.NET MVC — 第 2 天
- ASP.NET中图片显示方法实例
- ASP.NET仿新浪微博下拉加载更多数据瀑布流效果
- IWAM账号密码不一致引起IIS无法处理ASP文件
- 用ASP实现超长内容的word模板替换objDoc.Content.Find.Execute
- IIS7.0下ASP+Access(MDB)应用环境设置要点
- IIS无法在后台生成WORD文件的故障
- IIS6主机上开启webservice的权限设置问题
- 关于使用UTF-8开发ASP网站