主题：[求助]如何获得目录里的指定文档的行数

你的文档是txt？

Dim str As String = FileSys.ReadAllText("d:\test.txt", Encoding.Default)
Dim n = str.split(chr(13)).length
msgbox(n)

如果文件比较大，不能一次读取

Using sr As IO.StreamReader = New IO.StreamReader("d:\test.txt") '直接从文件路径生成'
Dim line As String = sr.ReadLine() '读取一行
Dim count As Integer = 0
Do While line IsNot Nothing '如果不为空.为空说明读取完毕,结束循环
    count += 1
    line = sr.ReadLine() '读取下一行
Loop
msgbox(count)
End Using