Serialize objects into xml file in .net

Imports System.IO
Imports System.Xml.Serialization

Public Class Serializer
    
Public Shared Sub SerializeTaskToXMLFile(ByVal [ObjectAs ObjectByVal Path As String)
        
Dim XmlSerializer As New XmlSerializer(GetType(Task))
        
Dim File As New StreamWriter(Path)
        XmlSerializer.Serialize(File, [
Object])
        File.Close()
    
End Sub
    
Public Shared Function DeserializeTaskFromXMLFile(ByVal Path As StringAs Task
        
Dim XmlSerializer As New XmlSerializer(GetType(Task))
        
Dim File As New StreamReader(Path)
        
Dim [ObjectAs Object = XmlSerializer.Deserialize(File)
        File.Close()
        
Return CType([Object], Task)
    
End Function
End Class
posted @ 2009-05-07 04:11  N/A2011  阅读(168)  评论(0编辑  收藏  举报