BinaryStream

Write Data Using BinaryStream

Collapse

Dim fs As New
FileStream("binary.txt", FileMode.Create, FileAccess.Write)
 Dim bwriter As New BinaryWriter(fs)
Dim x As Integer = 40
 Dim c As Char = "A"
Dim f As Single = 23.45
 bwriter.Write(x)
bwriter.Write(c)
bwriter.Write(f)
bwriter.Close()
fs.Close()

Read Data Using BinaryStream

Collapse

Dim fs As New
FileStream("binary.txt", FileMode.Open, FileAccess.Read)
 Dim breader As New BinaryReader(fs)
Dim a As Integer = breader.ReadInt32()
 Dim t As Char = breader.ReadChar()
Dim s As Single = breader.ReadSingle()
 TextBox1.Text = a & vbCrLf & t &
vbCrLf & s
breader.Close()
fs.Close()

Random Access Using Binary Stream

Collapse

Dim fs as new
FileStream("binary.txt",FileMode.OpenOrCreate,FileAccess.Write)
 Dim bwriter as new BinaryWriter(fs)
bwriter.BaseStream.Seek(0,SeekOrigin.End)
bwriter.Write("This is a
 String")
bwriter.close()