# Key
object.Line
只读属性，返回 TextStream 文件中的当前行号。
| 参数 | 描述 |
|---|---|
| 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
1
2
3
4
5
6
7
8
9
10
2
3
4
5
6
7
8
9
10