TextStream .read总报错

[dxssx]

错误badfilemode
这是怎么回事？

[dxssx]

怎么判断textstream指向的是个空文件？
我那个错误是因为打开的是个空文件导致的

[AntingZ]

try:
Const ForReading = 1, ForWriting = 2
Dim fso, MyFile
fso = CreateObject("Scripting.FileSystemObject")
MyFile = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
MyFile.WriteLine("Hello world!")
MyFile.WriteLine("The quick brown fox")
MyFile.Close()
MyFile = fso.OpenTextFile("c:\testfile.txt", ForReading)
Dim str As String
str = MyFile.ReadLine
MessageBox.Show(str)

[pzrr_00]

TextStream 好象是虚拟基类，不能引用的