How to write to a file using FileSystemObject.

  This Example shows how to write to a file, using FileSystemObject in an ASP Page.

<% Option Explicit ' Set up Constants Const ForWriting = 2 ' Input OutPut mode Const Create = True Dim MyFile Dim FSO ' FileSystemObject Dim TSO ' TextStreamObject ' Use MapPath function to get the Physical Path of file MyFile = Server.MapPath("textfile.txt") Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set TSO = FSO.OpenTextFile(MyFile, ForWriting, Create) TSO.write "This is first line in this text File" & vbcrlf ' Vbcrlf is next line character TSO.write "This is Second line in this text file" & vbcrlf TSO.write "Writen by devasp visitor at " & Now() TSO.WriteLine "" Response.Write " Three lines are writen to textfile.txt <br>" Response.Write " Local time at server is " & Now() ' close TextStreamObject and ' destroy local variables to relase memory TSO.close Set TSO = Nothing Set FSO = Nothing %>