소프트웨어 를 개발 할 때 일부 데이터 의 다른 저장 방식

Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Text.RegularExpressions

Public Class ClsFile

#Region "     "
    Public Sub CreateDirtory(ByVal tPath As String)
        Dim _Fol As String = Regex.Match(tPath, "(.*?)[\\|\/][^\\/]+$").Groups(1).Value
        If Not My.Computer.FileSystem.DirectoryExists(_Fol) Then
            My.Computer.FileSystem.CreateDirectory(_Fol)
        End If
    End Sub
#End Region
#Region "  /     "
    Public Function SaveStruct(ByVal tCo As Object, ByVal tPath As String)
            CreateDirtory(tPath)
            Dim fs As New FileStream(tPath, FileMode.Create)
            Dim formatter As New BinaryFormatter
            Try
                formatter.Serialize(fs, tCo)
                Return True
            Catch ex As Exception
                MsgBox(ex.ToString)
                Return False
                Throw
            Finally
                fs.Close()
            End Try
    End Function
    Public Function ReadStruct(ByVal tPath As String) As Object
            Dim fs As New FileStream(tPath, FileMode.Open)
            Try
                Dim formatter As New BinaryFormatter
                Return formatter.Deserialize(fs)
                Return ReadStruct
            Catch ex As Exception
                MsgBox(ex.ToString)
                Return Nothing
                Throw
            Finally
                fs.Close()
            End Try
    End Function
#End Region

End Class

‘       ，**   ，      **
    Structure dbSce
        Public str As String '   
        Public list() As String '  
        Public htable As Hashtable  
        ……
    End Structure
     Public ClsF As New ClsFile
     Public db As dbSce
     '    
     db.str="123"
     ……
      ClsF.SaveStruct(db, Application.StartupPath & "\db.dat")'      
      '    
      db= ClsF.ReadStruct(Application.StartupPath & "\db.dat")
      dim title as string = db.str
      ……