Mega Code Archive

 

Categories / VB.Net / File Directory

 

BinaryWriter Write Method Writes an unsigned byte to the current stream and advances the stream position by one byte

Imports System Imports System.IO Public Class BinaryRW     Shared Sub Main()         Dim i As Integer = 0         Dim writeArray(10) As Byte         Dim binWriter As New BinaryWriter(New MemoryStream())         Dim binReader As New BinaryReader(binWriter.BaseStream)         Try             For i = 0 To writeArray.Length - 1                 binWriter.Write(i)             Next i             binReader.BaseStream.Position = 0             For i = 0 To writeArray.Length - 1                 If binReader.ReadByte() <> writeArray(i) Then                     Console.WriteLine("Error writing the data.")                     Return                 End If             Next i         Catch ex As EndOfStreamException             Console.WriteLine("Error writing the data: {0}", ex.GetType().Name)         End Try     End Sub End Class