<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP & PowerPoint.Application</title> </head> <body> <% Dim ppApp,ppName,FileName Set ppApp = Server.CreateObject("PowerPoint.Application") ppApp.Visible = True ppName = "MySlides.ppt" FileName = "MyPP/" '*** Open Document ***' ppApp.Presentations.Open(Server.MapPath(ppName)) '*** Save Document ***' ppApp.ActivePresentation.SaveAs Server.MapPath(FileName),15 ppApp.Quit Set ppApp = Nothing %> PowerPoint Created to Folder <b><%=FileName%></b> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 04
