西班牙語翻譯中文翻譯社

開啟一個指定的檔案並傳回一個 TextStream 物件，該物件可用於對檔案進行讀取或附加寫入翻譯

iomode 引數可為下面設定值的任何一個：

請注意

OpenTextFile 方法有以下幾個單元：

Sub OpenTextFileTest
    Const ForAppending = 8
    Dim fso as FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fid = fso.OpenTextFile("c:\testfile.txt", ForAppending)
    fid.WriteLine "This is a new line!"
1. 進入VB6翻譯社 點選 MENU / Project / References
2. 點選 Microsoft Scripting Runtime, 並肯定援用此 .dll 檔

object.OpenTextFile(filename[, iomode[翻譯社 create[, format]]])
描述

語法




常數
 
描述


ForReading
1
開啟一個唯讀檔案。沒法對此檔案進行寫入。


ForAppending
8
開啟一個檔案並寫輸出至檔案的尾部翻譯









單位
描寫


Object
需要引數。始終是一個 FileSystemObject 的名字。


filename
需要引數翻譯字串運算式，它標識了開啟的檔案。


iomode
選擇性引數翻譯默示輸入/輸出模式。可為兩個常數之一：ForReading或ForAppending翻譯


create
選擇性引數。Boolean 值，它透露表現若是指定的 filename 不存在是不是可以創立一個開新檔案。假如建樹開新檔案，其值為 True。若不建立檔案其值為 False翻譯預設值為 False。


format
選擇性引數。三種 Tristate 值之一，用於指定開啟檔案的花式翻譯假如省略，則檔案以 ASCII 花樣開啟。




    fid.Close
End Sub

準備工作

Dim fid as TextStream

典範榜樣1:
下面的程式碼舉例申明了利用 OpenTextFile 方式開啟並讀取一個文字檔：

以下部分援用自 Visual Studio 6 MSDN 光碟

OpenTextFile 方式

Format 引數可為下面設定值的任何值：

設定

Sub OpenTextFileTest
    Const ForReading = 1
    Dim fso as FileSystemObject
    Dim fid as TextStream

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fid = fso.OpenTextFile("c:\testfile.txt", ForReading)
    MsgBox fid.ReadLine
    fid.Close
End Sub

類型2:
下面的程式碼舉例說明了利用 OpenTextFile 方法開啟並附加(Append)文字於該文字檔：