OpenAsTextStream 方法打開(kāi)指定的文件并返回一個(gè) TextStream 對(duì)象，此對(duì)象用于對(duì)文件進(jìn)行讀、寫(xiě)或追加操作。 object.OpenAsTextStream([iomode, [format]])
參數(shù)object 必選項(xiàng)。應(yīng)為 File 對(duì)象的名稱。 iomode 可選項(xiàng)。輸入/輸出模式，是下列三個(gè)常數(shù)之一：ForReading、ForWriting 或 ForAppending。 format 可選項(xiàng)。三個(gè) Tristate 值之一，指出以何種格式打開(kāi)文件。忽略此參數(shù)，則文件以 ASCII 格式打開(kāi)。 設(shè)置iomode 參數(shù)可為下列設(shè)置之一： | 常數(shù) | 值 | 描述 |
|---|
| ForReading | 1 | 以只讀模式打開(kāi)文件。不能對(duì)此文件進(jìn)行寫(xiě)操作。 | | ForWriting | 2 | 以可讀寫(xiě)模式打開(kāi)文件。如果已存在同名的文件，則覆蓋舊的文件。 | | ForAppending | 8 | 打開(kāi)文件并在文件末尾進(jìn)行寫(xiě)操作。 |
format 參數(shù)可為下列設(shè)置之一： | 常數(shù) | 值 | 描述 |
|---|
| TristateUseDefault | -2 | 以系統(tǒng)默認(rèn)格式打開(kāi)文件。 | | TristateTrue | -1 | 以 Unicode 格式打開(kāi)文件。 | | TristateFalse | 0 | 以 ASCII 格式打開(kāi)文件。 |
說(shuō)明OpenAsTextStream 方法可提供與 FileSystemObject 對(duì)象的 OpenTextFile 方法相同的功能。另外，使用 OpenAsTextStream 方法可對(duì)文件進(jìn)行寫(xiě)操作。 以下代碼舉例說(shuō)明如何使用 OpenAsTextStream 方法： Function TextStreamTest
Const ForReading =1, ForWriting =2, ForAppending =8
Const TristateUseDefault =-2, TristateTrue =-1, TristateFalse =0
Dim fso, f, ts
Set fso =CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile "test1.txt" '創(chuàng)建一個(gè)文件。
Set f =fso.GetFile("test1.txt") Set ts =f.OpenAsTextStream(ForWriting, TristateUseDefault) ts.Write "嗨，你好！" ts.Close Set ts =f.OpenAsTextStream(ForReading, TristateUseDefault) TextStreamTest =ts.ReadLine ts.CloseEnd Function
請(qǐng)參閱Copy 方法 | CreateTextFile 方法 | Delete 方法 | Move 方法 | OpenTextFile 方法 應(yīng)用于： File 對(duì)象 返回首頁(yè) |