Question

How to checking for end of file with BinaryReader in VB.NET

Answer 1

Imports System.IO

Module Module1

    Sub Main()

        Using fs As New FileStream("d:\data.bin", FileMode.Open,
                                                  FileAccess.Read,
                                                  FileShare.ReadWrite)
            Using br As New BinaryReader(fs)

                Dim n As Integer

                While (br.BaseStream.Position <> br.BaseStream.Length)
                    n = br.ReadInt32()
                    Console.WriteLine(n)
                End While

            End Using

        End Using

    End Sub

End Module


' run:
' 
' 0
' 3
' 5
' 87
' 12
' 982
' 99

 

70+ SQL courses for beginners and professionals