01.<% Option Explicit %>
02.<html>
03.<head>
04.<title>ThaiCreate.Com ASP TextStream Object</title>
05.</head>
06.<body>
07.<%
08. Dim objFSO, objStream,i
09. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
10. Set objStream = objFSO.OpenTextFile(Server.MapPath("MyFiles/thaicreate.txt"), 8, True)
11. objStream.WriteLine("I Love My Live")
12. Response.write("Writing")
13. objStream.Close
14. Set objStream = Nothing
15. Set objFSO = Nothing
16.%>
17.</body>
18.</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
