读写xml文件

读：

    Private Function ReadXml(FilePath As String, NodePath As String) As String
        Dim xmlDoc As New XmlDocument()
        xmlDoc.Load(FilePath)
        Return xmlDoc.SelectSingleNode(NodePath).InnerText
    End Function

写：

    Private Sub WriteXml(FilePath As String, NodePath As String, NodeValue As String)
        Dim xmlDoc As New XmlDocument()
        xmlDoc.Load(FilePath)
        xmlDoc.SelectSingleNode(NodePath).InnerText = NodeValue
        xmlDoc.Save(FilePath)
    End Sub