AtEndOfStream 属性仅应用于
以只读方式打开的
TextStream 文件,否则会出现错误。
下列代码举例说明如何使用
AtEndOfStream 属性:
Dim file, retstring
Set file = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\test.txt", ForReading, False)
Do While file.AtEndOfStream <> True
retstring = file.ReadLine
'. . .
Loop: file.Close