Contact: aviboots(AT)netvision.net.il
40,766 questions
53,144 answers
573 users
Imports System.IO Module Module1 Sub Main() Using br As New BinaryReader(File.Open("d:\data.bin", FileMode.Open)) Dim length As Integer = br.BaseStream.Length Console.WriteLine(length) End Using End Sub End Module ' run: ' ' 20