Numero De Linhas Em Um Txt

[Guest SLX]

Como saber o numero de linhas que um txt possui?

vlw

[kuroi]

Dim intCont As Double, lngF as Long
    intCont = 0
    lngF = FreeFile
    Open "x.txt" For Input As lngF
    Do While Not EOF(lngF)
        Line Input #lngF, strLinha
        intCont = intCont + 1
    Loop
    MsgBox "Numero de Linhas: " & intCont
[/code]