(整)取文本文件的行数
2006-十-星期一 | 5:12 下午分类：未分类 | 118 views
(整)取文本文件的行数
Public Function GetTextFileLine(FileName As String) As Long
On Error GoTo GetTextFileLine_Err
Dim tmpID As Integer
Dim tmpAllStr As String
Dim tmpStr() As String
Dim tmpLine As Long
tmpID = FreeFile
Open FileName For Binary As #tmpID
tmpAllStr = Space(LOF(tmpID))
Get #tmpID, , tmpAllStr
Close #tmpID
tmpStr = Split(tmpAllStr, vbCrLf)
tmpLine = UBound(tmpStr) + 1
GetTextFileLine = tmpLine
Exit Function
GetTextFileLine_Err:
GetTextFileLine = 0
Exit Function
End Function
