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