Contact: aviboots(AT)netvision.net.il
41,157 questions
53,647 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