OpenAsTextStream Method
Updated: April 2009
Opens a specified file and returns a TextStream object that can be used to read from, write to, or append to the file.
object
.OpenAsTextStream([iomode, [format]])
The iomode argument can have any of the following settings:
|
Constant |
Value |
Description |
|---|---|---|
|
ForReading |
1 |
Open a file for reading only. You can't write to this file. |
|
ForWriting |
2 |
Open a file for writing. If a file with the same name exists, its previous contents are overwritten. |
|
ForAppending |
8 |
Open a file and write to the end of the file. |
The format argument can have any of the following settings:
|
Constant |
Value |
Description |
|---|---|---|
|
TristateUseDefault |
-2 |
Opens the file using the system default. |
|
TristateTrue |
-1 |
Opens the file as Unicode. |
|
TristateFalse |
0 |
Opens the file as ASCII. |
The OpenAsTextStream method provides the same functionality as the OpenTextFile method of the FileSystemObject. In addition, the OpenAsTextStream method can be used to write to a file.
The following code illustrates the use of the OpenAsTextStream method:
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fso, ts, fileObj, TextLine
Set fso = CreateObject("Scripting.FileSystemObject")
' Create the file, and obtain a file object for the file.
FileName = "c:\testfile.txt"
fso.CreateTextFile FileName
Set fileObj = fso.GetFile(FileName)
' Open a text stream for output.
Set ts = fileObj.OpenAsTextStream(ForWriting, TristateUseDefault)
' Write to the text stream.
ts.WriteLine "Hello World!"
ts.WriteLine "The quick brown fox"
ts.Close
' Open a text stream for input.
Set ts = fileObj.OpenAsTextStream(ForReading, TristateUseDefault)
' Read from the text stream and display the results.
Do While ts.AtEndOfStream <> True
TextLine = ts.ReadLine
Document.Write TextLine & "<br />"
Loop
ts.Close