' 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 = ""