<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 也不行

解决方案 »

  1.   

    strSourceFile As Variant 
      
    *****************************************************************************
    欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) 最新版本:20070130http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html
      

  2.   

    不能向DLL中传数组?不会吧??
      

  3.   

    谢谢feiyun0112(http://feiyun0112.cnblogs.com/)兄