01.<% Option Explicit %>
02.<html>
03.<head>
04.<title>ThaiCreate.Com ASP Zip</title>
05.</head>
06.<body>
07.<%
08. Dim objZip,sResult,sFile
09. Set objZip = Server.CreateObject("Pnvzip.ZipFunctions")
10. sFile = Server.MapPath("MyXls/MyCustomer.xls")&";"&Server.MapPath("MyXls/MyCustomer2.xls")
11. sResult = objZip.ZipFile(sFile,Server.MapPath("MyXls/MyCustomer.zip"))
12. Response.Write "Result code :" & sResult & "<br>"
13.
14. Response.Write "<a href=MyXls/MyCustomer.zip>Click here</a> Download Zip Files "
15. Set objZip = Nothing
16.%>
17.</body>
18.</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
