Mega Code Archive

 

Categories / VB.Net / File Directory

 

Deserialize XML file from disk

Imports System Imports System.Collections Imports System.Data Imports System.IO Imports System.Xml.Serialization Imports System.Windows.Forms Imports System.Xml Public Class MainClass     Shared Sub Main()         Dim address As New Address()         Dim stream As New FileStream("address.xml", FileMode.Create)         ' create a serializer...         Dim serializer As New XmlSerializer(Address.GetType)         ' save the file...         serializer.Serialize(stream, address)         ' close the file...         stream.Close()         address = Load("address.xml", Address.GetType)     End Sub          Public Shared Function Load(ByVal stream As Stream, _                      ByVal newType As Type) As Object         Dim serializer As New XmlSerializer(newType)         Dim newObject As Object = serializer.Deserialize(stream)         Return newobject     End Function     Public Shared Function Load(ByVal filename As String, _                      ByVal newType As Type) As Object         Dim fileInfo As New FileInfo(filename)         If fileInfo.Exists = False Then             Return System.Activator.CreateInstance(newType)         End If         Dim stream As New FileStream(filename, FileMode.Open)         Dim newObject As Object = Load(stream, newType)         stream.Close()         Return newObject     End Function End Class Public Class Address     ' members...     Public FirstName As String     Public LastName As String     Public CompanyName As String     Public Address1 As String     Public Address2 As String     Public City As String     Public Region As String     Public PostalCode As String     Public Country As String     Public Email As String End Class