[VB6]: Contare le righe di un file sequenziale

[Boolean]

se le righe sono separate da ritorni di paragrafo è abbastanza semplice:

prima di tutto carichi il file in una variabile, con Open ad esempio, poi usi queste istruzioni:

Dim Righe() As String
Dim NumRighe As Long
Dim t As String

'[Apri il file di testo e lo metti in t]

Righe = Split(t, vbCrLf)
NumRighe = UBound(Righe) + 1

MsgBox "Il file ha " & NumRighe & " Righe"

Boolean