Cara menghitung banyak nya jumlah baris di file txt vb6

kali kalian nemuin kasus juga seperti yaitu ingin menghitung banyak baris yang ada di file .txt. nah berikut Cara menghitung banyak nya jumlah baris di file txt vb6

letakan code berikut dimana saja bisa.

Set FSO = CreateObject("Scripting.FileSystemObject")

Set file = FSO.OpenTextFile("D:\Data Taufik\My Aplikasi\Check jumlah Error\Log\EventLog.2015.01.09.txt", 1)
     file.ReadAll
 
     'subtract one ReadAll stops at the first blank line
     MsgBox (file.Line) - 1