Method: OpenAsTextStream for File

Download PDF

Updated2024-09-12
2 minute(s) read

Opens a file for reading, writing, or appending and returns a TextStream object.

Set oTextStream = Object.OpenAsTextStream([IOMode], [Format])

Object

File
Object with this method

[IOMode]

Enumeration with the following selection terms:

1	ForReading	Opens the file for reading. This is a default value.
2	ForWriting	Opens the file for writing.
8	ForAppending	Opens the file for writing. DIAdem writes new text at the end of the file.

[Format]

Enumeration with the following selection terms:

-2	TristateUseDefault	Opens the file in the format of the system standard.
-1	TristateTrue	Opens the file in the Unicode format.
0	TristateFalse	Opens the file in the ASCII format. This is a default value.

oTextStream

TextStream
Returned object

The following example opens a text file where it writes a text line. Then the example reopens the file to append a text. The example then reopens the file to read the text:

Copy script

Sub ReadWriteAppend(sFile)
  Const ForReading = 1, ForWriting = 2, ForAppending = 8
  Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
  Dim fso, oMyFile, oMyFileObj
  Set fso = CreateObject("Scripting.FileSystemObject")

  'Get file object
  Set oMyFileObj = fso.GetFile(sFile)
  ' Open the file for output
  Set oMyFile = oMyFileObj.OpenAsTextStream(ForWriting)
  ' Write to the file.
  oMyFile.WriteLine "This is the first line"
  oMyFile.Close
  
  ' Open the file for appending
  Set oMyFile = oMyFileObj.OpenAsTextStream(ForAppending)
  ' Write to the file.
  oMyFile.WriteLine "This is the second line"
  oMyFile.Close
  
  ' Open the file for input
  Set oMyFile = oMyFileObj.OpenAsTextStream(ForReading)
  ' Read from the file
  Call MsgBox(oMyFile.ReadAll)
  oMyFile.Close
End Sub

DIAdem Help

Table of Contents

Method: OpenAsTextStream for File

See Also

Related Topics

Log in to get a better experience