<script language = "vbscript">
sub zip()
dim a(1)
a(0) = "sdfsd"
a(1) = "dasf"
msgbox ehImgOCX1.zipFile (a, "sdaf.zip", "123")
end sub
</script>Public Function zipFile(strSourceFile() As String, strDestinationFile As String, strPassWord As String) As BooleanstrSourceFile() As String 改成 ByRef strSourceFile() As Variant 也不行
sub zip()
dim a(1)
a(0) = "sdfsd"
a(1) = "dasf"
msgbox ehImgOCX1.zipFile (a, "sdaf.zip", "123")
end sub
</script>Public Function zipFile(strSourceFile() As String, strDestinationFile As String, strPassWord As String) As BooleanstrSourceFile() As String 改成 ByRef strSourceFile() As Variant 也不行
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) 最新版本:20070130http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html