Contact: aviboots(AT)netvision.net.il
41,577 questions
54,199 answers
573 users
Imports System.IO Module Module1 Sub Main() Dim total_lines As Integer = File.ReadAllLines("d:\data.txt").Length Console.WriteLine(total_lines) End Sub End Module ' run: ' ' 2