BinaryReader.ReadBytes reads the specified number of bytes
Imports System Imports System.IO Public Class BinaryRW Shared Sub Main() Const upperBound As Integer = 1000 Dim dataArray(upperBound) As Byte Dim randomGenerator As New Random randomGenerator.NextBytes(dataArray) Dim binWriter As New BinaryWriter(New MemoryStream()) binWriter.Write(dataArray) Dim binReader As New BinaryReader(binWriter.BaseStream) binReader.BaseStream.Position = 0 Dim verifyArray() As Byte = binReader.ReadBytes(dataArray.Length) If verifyArray.Length <> dataArray.Length Then Console.WriteLine("Error writing the data.") Return End If For i As Integer = 0 To upperBound If verifyArray(i) <> dataArray(i) Then Console.WriteLine("Error writing the data.") Return End If Next i End Sub End Class