serializedata.vb

XML集成订单处理系统源代码.rar 注意：使用源代码时

Imports System.IO
Imports System.Xml.Serialization

Public Class SerializeData

    Public Function SaveXmlFile(ByVal filename As String)
        Dim tempFilename As String
        tempFilename = filename & ".tmp" '生成临时文件
        Dim tempFileInfo As New FileInfo(tempFilename)
        If tempFileInfo.Exists = True Then tempFileInfo.Delete() '判断该文件是否存在，如果存在则删除
        Dim stream As New FileStream(tempFilename, FileMode.Create) '打开文件
        SaveXmlFile(stream) '保存对象
        stream.Close() '关闭文件
        tempFileInfo.CopyTo(filename, True) '重命名文件
        tempFileInfo.Delete() '删除临时文件
    End Function

    Public Function SaveXmlFile(ByVal stream As Stream)
        Dim serializer As New XmlSerializer(Me.GetType) '创建一个serializer对象
        serializer.Serialize(stream, Me) '保存文件
    End Function
End Class