systemset.vb

The Management Information System of Library using .NET

Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Public Class systemSet
    Private myarray As ArrayList
    Public Sub Write()
        Dim formatter As New BinaryFormatter
        Dim stream As New FileStream("MyFile.bin", FileMode.Create, _
                                      FileAccess.Write, FileShare.None)
        formatter.Serialize(stream, myarray)
        stream.Close()
    End Sub

    Public Function ReadArray() As ArrayList
        Dim formatter As New BinaryFormatter
        Dim stream As New FileStream("MyFile.bin", FileMode.Open, _
                                      FileAccess.Read, FileShare.Read)
        myarray = formatter.Deserialize(stream)
        stream.Close()
        Return myarray
    End Function

    Public Sub New(ByVal str As ArrayList)
        Me.myarray = str.Clone
    End Sub
    Public Sub New()

    End Sub
End Class