道格裏語翻譯

描寫

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

準備工作

OpenTextFile 方式有如下幾個單位：

object.OpenTextFile(filename[, iomode[ 翻譯公司 create[, 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)文字於該文字檔：

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

Sub OpenTextFileTest
    Const ForAppending = 8
    Dim fso as FileSystemObject
請注意




常數
 
描寫


TristateUseDefault
–2
利用系統預設開啟檔案。


TristateTrue
–1
以 Unicode 格式開啟檔案 翻譯社


TristateFalse
  0
以 ASCII 花式開啟檔案。



    Dim fid as TextStream

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

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fid = fso.OpenTextFile("c:\testfile.txt", ForAppending)
    fid.WriteLine "This is a new line!"

    fid.Close
End Sub

設定

語法

1. 進入VB6 翻譯公司 點選 MENU / Project / References
2. 點選 Microsoft Scripting Runtime, 並肯定引用此 .dll 檔

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

OpenTextFile 方式

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