Mega Code Archive

 

Categories / VB.Net / File Directory

 

BinaryWriter Write(Byte[]) Writes a byte array to the underlying stream

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     End Sub End Class