!!!什么方法可解决文件行数的问题！！！！？？？？

[cool_wolf]

在对文本文件处理之前，怎么样可知道文件的行数？？
谢谢！！！

[DimVar]

GZ
我只知道一行一行的读，用个变量来记录。

[cool_wolf]

但这样是很麻烦的！

[wangchong]

VB 高手都去那了？？？？？？？？？？？？？？？

[emilcy]

文本文件第一行写如下面的行数

[wangchong]

a

[cool_wolf]

Option Explicit

Private Sub Form_Load()
Debug.Print TextFileLines("c:\autoexec.bat")
End Sub

Function TextFileLines(strFile As String)
Dim s As String
Dim b() As Byte
Dim fh As Long
fh = FreeFile
Open strFile For Binary As fh
ReDim b(LOF(fh))
Get fh, , b
Close #fh

If b(0) = 255 And b(1) = 254 Then '(Unicod 文本文件)
s = b
Else '(ANSI 文本文件)
s = StrConv(b, vbUnicode)
End If
TextFileLines = Len(s) - Len(Replace(s, vbCr, "")) + 1
End Function