Contact: aviboots(AT)netvision.net.il
39,939 questions
51,876 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