OpenAsTextStream

打開指定的文件並返回一個TextStream對象，此對象用於對文件進行讀、寫或追加操作。

object.OpenAsTextStream(【iomode,【format】】)

OpenAsTextStream方法的語法有以下部分：

部分描述

object必選。應為File對象的名稱。

iomode可選。輸入/輸出模式，是下列三個常數之一：ForReading、ForWriting或ForAppending。

format可選。三個Tristate值之一，指出以何種格式打開文件。忽略此參數，則文件以ASCII格式打開。

iomode參數可為下列設置之一：

常數值描述

ForReading1以只讀模式打開文件。不能對此文件進行寫操作。

ForWriting2以可讀寫模式打開文件。如果已存在同名的文件，則覆蓋舊的文件。

ForAppending8打開文件並在文件末尾進行寫操作。

format參數可為下列設置之一：

常數值描述

TristateUseDefault-2以系統默認格式打開文件。

TristateTrue-1以Unicode格式打開文件。

TristateFalse 0以ASCII格式打開文件。

OpenAsTextStream方法可提供與FileSystemObject對象的OpenTextFile方法相同的功能。另外，使用OpenAsTextStream方法可對文件進行寫操作。

以下代碼舉例說明如何使用OpenAsTextStream方法：

SubTextStreamTest

ConstForReading=1,ForWriting=2,ForAppending=3

ConstTristateUseDefault=-2,TristateTrue=-1,TristateFalse=0

Dimfs,f,ts,s

Setfs=CreateObject("Scripting.FileSystemObject")

fs.CreateTextFile"test1.txt" '創建一個文件

Setf=fs.GetFile("test1.txt")

Setts=f.OpenAsTextStream(ForWriting,TristateUseDefault)

ts.Write"嗨，你好！"

ts.Close

Setts=f.OpenAsTextStream(ForReading,TristateUseDefault)

s=ts.ReadLine

MsgBoxs

ts.Close

EndSub