ASP OpenAsTextStream Method

• 1 = ForReading - Open a file for reading. You cannot write to this file
• 2 = ForWriting - Open a file for writing
• 8 = ForAppending - Open a file and write to the end of the file

• 0 = TristateFalse - Default. Open the file as ASCII
• -1 = TristateTrue - Open the file as Unicode
• -2 = TristateUseDefault - Open the file using the system default 

<%
dim fs,f,ts
set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.GetFile("c:\test.txt")
Set ts=f.OpenAsTextStream(ForWriting)
ts.Write("Hello World!")
ts.Close

Set ts=f.OpenAsTextStream(ForReading)
Response.Write(ts.ReadAll)
ts.Close
set ts=nothing
set f=nothing
set fs=nothing
%>

Output:

Hello World!