悠悠博客 关注Ajax技术与web开发

Line 属性
只读属性，返回 TextStream 文件中的当前行号。

object.Line

object 通常是 TextStream 对象的名称。

说明
文件刚刚打开并在写入任何信息前，Line 等于 1。

下面例子举例说明如何使用 Line 属性：

Function GetLine
Const ForReading = 1, ForWriting = 2
Dim fso, f, ra
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
f.Write "世界你好!" & vbCrLf & "VB脚本很有趣!" & vbCrLf
Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
ra = f.ReadAll
GetLine = f.Line
End Function