Dim FreeNum As Integer
FreeNum = FreeFile
Open "文本文件" For Input As #FreeNum

我用上边的方式读取文本文件，我怎么才能知道文本文件的行数！

找找有几个vbCrLf

怎么没人知道吗
Dim fsoTest As New FileSystemObject, file1 As File, ts As TextStream, s As String
Set file1 = fsoTest.GetFile(“C:\testfile.txt")
Set ts = file1.OpenAsTextStream(ForReading)
如果用上面的方法知道也行，我是指在读取之前就知道，
这样的方法我也会
do while 不是文件尾部
a=ts.line
hs=hs+1
loop
实际上我就想做这么个东西，用VB读取一个文本文件，然后一行一行的进行处理，每一个文件很大 有40万行，如果没有个进度条，那么很多人会认为是死机了，因此需要根据处理的行数来控制进度条，所以就需要在处理文本文件之前知道行数，请帮忙