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.CreateTextFile(Server.MapPath("MyFiles/thaicreate.txt"),true)
11. objStream.WriteLine("I Love ThaiCreate")
12. objStream.WriteBlankLines(4)
13. objStream.WriteLine("I Love My Live")
14. Response.write("Writing")
15. objStream.Close
16. Set objStream = Nothing
17. Set objFSO = Nothing
18.%>
19.</body>
20.</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
