Read Number of lines in Large Text File VB6

Question

I have text File of Size 230MB. I want to Count Number of Lines OF that File.

I tried \"Scripting.FileSystemOblect\" but it goes out Of

Answer 1

This takes about 6 seconds for me on a 480mb binary file with 1mil+ 0xD (vbcr)

Dim buff() As Byte
Dim hF As Integer
Dim i As Long, n As Long

hF = FreeFile(0)

Open "c:\windows\Installer\2f91fd.msp" For Binary Access Read As #hF
ReDim buff(LOF(hF) - 1)
Get #hF, , buff()
Close #hF

For i = 0 To UBound(buff)
    If buff(i) = 13 Then n = n + 1
Next

MsgBox n