<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP Zip</title> </head> <body> <% Dim objZip,sResult,sFile Set objZip = Server.CreateObject("Pnvzip.ZipFunctions") sResult = objZip.UnzipFile(Server.MapPath("MyXls/MyCustomer.zip"),Server.MapPath("MyXls/MyCustomer/")) Response.Write "Result code :" & sResult & "<br>" '*** GUnzipFile(source,destination) for .gz ***' Set objZip = Nothing %> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 00
