ReadAll 方法
讀入全部 TextStream 文件并返回結果字符串。
object.ReadAll
object 應為 TextStream 對象的名稱。
說明
對于大文件,使用 ReadAll 方法浪費內存資源。應該使用其他技術輸入文件,例如按行讀文件。
Function ReadAllTextFile Const ForReading = 1, ForWriting = 2 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True) f.Write "
世界你好!"
Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
ReadAllTextFile = f.ReadAll
End Function