| 发表于:2007-01-31 09:48:57 楼主 |
<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 boolean strsourcefile() as string 改成 byref strsourcefile() as variant 也不行 |
|
|
|
|