Save Structure to a Binary File

 
Imports System
Imports System.IO
Imports System.Windows.Forms

Public Class MainClass

   Shared Sub Main()
        Dim emp As New Employee

        Dim file_num As Integer = FreeFile()

        FileOpen(file_num, "MYFILE.DAT", OpenMode.Random, _
             OpenAccess.ReadWrite, OpenShare.Shared, _
             Len(emp))

        FilePut(file_num, New Employee(1, "A", "A"))
        FilePut(file_num, New Employee(2, "B", "B"))
        FilePut(file_num, New Employee(3, "C", "C"))
        FilePut(file_num, New Employee(4, "D", "D"))
        FilePut(file_num, New Employee(5, "E", "E"))
        FilePut(file_num, New Employee(6, "F", "F"))


        ' Close the file.
        FileClose(file_num)
   End Sub 
End Class

    Public Structure Employee
        Public ID As Integer
        <VBFixedString(15)> Public FirstName As String
        <VBFixedString(15)> Public LastName As String

        Public Sub New(ByVal new_id As Integer, ByVal first_name As String, _
         ByVal last_name As String)
            ID = new_id
            FirstName = first_name
            LastName = last_name
        End Sub

        Public Overrides Function ToString() As String
            Return ID & ": " & FirstName & " " & LastName
        End Function
    End Structure

Related examples in the same category

1.	Creating a random file
2.	Use BinaryWriter to store information into a binary file
3.	Gets the underlying stream of the BinaryWriter.
4.	BinaryWriter.Seek Method Sets the position within the current stream.
5.	BinaryWriter.Write Method Writes an unsigned byte to the current stream and advances the stream position by one byte.
6.	BinaryWriter.Write(Byte[]) Writes a byte array to the underlying stream.
7.	Writes a region of a byte array to the current stream.
8.	Writes a Unicode character
9.	Writes a character array
10.	Writes a section of a character array
11.	Writes a length-prefixed string

Save Structure to a Binary File : Binary File Write « File Directory « VB.Net

Related examples in the same category