Save Structure to a binary file : Structure Serialization « Class Module « VB.Net Tutorial

1. VB.Net Tutorial
2. Class Module
3. Structure Serialization

Imports System.IO

Structure Product
    Dim ProdID As String
    Dim ProdDescription As String
    Dim ListPrice As Single
    Dim Available As Boolean
    Dim MinStock As Integer
End Structure


public class Test
   public Shared Sub Main
        Dim objBW As BinaryWriter
        Dim objFS As FileStream
        Dim objProduct As Product

        objFS = New FileStream("Records.bin", FileMode.OpenOrCreate, FileAccess.Write)
        objBW = New BinaryWriter(objFS)
        objBW.BaseStream.Seek(0, SeekOrigin.Begin)

        objProduct = New Product
        With objProduct
            .ProdID = "1"
            .ProdDescription = "AAA"
            .ListPrice = 4.99
            .Available = True
            .MinStock = 40
        End With
        SaveRecord(objBW, objProduct)

        objProduct = New Product
        With objProduct
            .ProdID = "2"
            .ProdDescription = "BBB"
            .ListPrice = 0.99
            .Available = True
            .MinStock = 1000
        End With
        SaveRecord(objBW, objProduct)

        objBW.Close()
        objFS.Close()

   End Sub
    Private Shared Sub SaveRecord(ByVal objWriter As BinaryWriter, ByVal objRecord As Product)
        With objWriter
            .Write(objRecord.ProdID)
            .Write(objRecord.ProdDescription)
            .Write(objRecord.ListPrice)
            .Write(objRecord.Available)
            .Write(objRecord.MinStock)
        End With
    End Sub   
End class