如何在服务器端调用winzip命令行对文件压缩和解压

如何在服务器端调用winzip命令行对上传的多个文件打包压缩？

要解决这个问题，首先要了解一下Windows Scripting Host,简称为WSH！下面引用一下微软给的解释：

************************************************************************
* WSH是微软脚本技术系列中的一种，简单讲，就是提供了一种脚本环境， *
* 在这个环境中，预定义了一些对象，同时也可以使用COM里的其他对象。 *
* 他使用一种脚本引擎来对脚本解释执行，微软自己支持VBSCRIPT和JSCRIPT， *
* 第三方也可以开发自己的脚本引擎。 *
************************************************************************

具体点，就是你先编好一些脚本文件（微软自带例子若干，后缀.vbs或 .js),然后用一个程序对他解释执行，这个程序就叫Windows Scripting Host,程序的名字是Wscript.exe(或者命令行的Cscript.exe），你可以查看一下你的机器里有没有这两个文件，就知道有没有WSH了。(win2000是在winnt/system32/下)

这非常像批处理文件，只不过文件里不是命令行，而是脚本语言写的脚本。

再来简单介绍一下WSH自带的几个内置对象包括：

1.由 Wscript.exe 提供的对象

Wscript 作为 Wscript 公开给脚本引擎。

WshArguments 未公开；通过 Wscript.Arguments 属性访问。 入

2.由 WSHom.Ocx 提供的对象。

WshShell 自动对象。ProgID 是 Wscript.WshShell。
（注：这个就是我们要用到的，可以执行dos命令）
WshNetwork 自动对象。ProgID 是 Wscript.WshNetwork。
WshShortcut 未公开；通过 WshShell.CreateShortcut 方法访问。
WshUrlShortcut 未公开；通过 WshShell.CreateShortcut 方法访问。
WshCollection 未公开；通过 WshNetwork.EnumNetworkDrives 或 WshNetwork.EnumPrinterConnection 方法访问。
WshEnvironment 未公开；通过 WshShell.Environment 属性访问。
WshSpecialFolders 未公开；通过 WshShell.Folder 属性访问。

他们主要可以完成环境变量的获取，网络登陆，驱动器映射，快截方式创建，程序加载，特殊文件夹（如系统文件夹）信息获取等功能。

如果你的系统里支持ADO等COM部件，你同样可以使用，下面这个例子演示打开写字板查看文本文件，同时创建一个文本文件并写入一段话，你可以把他拷贝到写字板中，然后以.vbs为后缀存盘，之后双击他，

'test.vbs
'*********************
'下面用SHELL对象启动程序
'*********************
Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.Run ("notepad " & Wscript.ScriptFullName)
'***********************************************
'用COM对象Scripting.FileSystemObject操作文本文件
'***********************************************
Set fs = Wscript.CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.WriteLine("这是一个测试。")
a.Close

也可以在asp等web编程语言中应用

<script language="VBScript.Encode" runat=server>
'上面用SHELL对象启动程序
Set WshShell = server.CreateObject("Wscript.Shell")
IsSuccess = WshShell.Run ("D:\winnt\system32\cmd.exe" ,1, true)
if IsSuccess = 0 Then 
Response.write " 命令成功执行！"
else 
Response.write " 命令执行失败！权限不够或者该程序无法在DOS状态下运行"
end if
</script>

注：

1.其中runat=server必须要有

2.Set WshShell = Wscript.CreateObject("Wscript.Shell")要改为Set WshShell = server.CreateObject("Wscript.Shell")，

3.参数1代表SW_SHOWNORMAL， 激活并显示一个窗口。若窗口是最小化或最大化，则恢复到其原来的大小和位置。

4.TRUE代表返回执行的错误，False或者为指定代表脚本继续执行而不等待进程结束。

5.调用WSH的内置对象了，可以象调用函数和过程一样。

如

call WshShell.Run ("D:\winnt\system32\cmd.exe" ,1, true)

如果你对WSH感兴趣，想了解更多的话，请察看
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/wsconwshbasics.asp
http://www.dev-club.com/club/bbs/showEssence.asp?id=11136