VB.net 读写 XML 的类...

' Powered By Null AT 20070507
' HeTaoOS@Gmail.com
' http://hi.baidu.com/hetaoos
' 使用起来很简单，支持多级项目，级间使用'/'分割。
' 厄，Bug 还是有的，但对正常操作没有大的影响，
' 如果有什么大的 Bug 或改进建议，请联系我...
Imports  System.Xml

Public   Class Xml_Cls Class Xml_Cls
    Private XmlDoc As XmlDocument
    Private XmlFile As String

    Public ReadOnly Property XmlFileName()Property XmlFileName() As String
        Get
            Return XmlFile
        End Get
    End Property

    Public ReadOnly Property XmlText()Property XmlText() As String
        Get
            Return XmlDoc.InnerXml
        End Get
    End Property

    Sub New()Sub New(ByVal FileName As String, Optional ByVal CreateNew As Boolean = True, Optional ByVal Root As String = "XML", Optional ByRef IsOK As Boolean = False)
        IsOK = False
        XmlFile = ""