vb.net 读取XML配置文件

在WinCE中不能使用相对路径，必须获得配置文件的绝对路径
WinCE中不支持System.IO.Directory.GetCurrentDirectory()
Dim curDir As String
        curDir = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)
        Dim strFileName As String = curDir + "\config.xml"
        Dim fileInfo As New IO.FileInfo(strFileName)
        Dim xmlReader As System.Xml.XmlDocument
        xmlReader = New Xml.XmlDocument
        Dim nodeList As Xml.XmlNodeList
        If Not fileInfo.Exists Then
            MessageBox.Show(strFileName + " does not exist")
        Else
            xmlReader.Load(strFileName)
            nodeList = xmlReader.GetElementsByTagName("SystemName")
            MessageBox.Show(nodeList(0).Attributes(0).Value.ToString)
        End If
---------------------------------------------------------------------------------------------------------------------------------
Dim strFileName As String = "\Config.xml"
        Dim strFileFullPath As String = Directory.GetCurrentDirectory() + strFileName
        Dim strFile As FileInfo = New FileInfo(strFileFullPath)
        If strFile.Exists Then
            Console.WriteLine(strFileName + " Exists !")
        Else
            Console.WriteLine(strFileName + " Not Exists !")
        End If
        Dim xmlReader As Xml.XmlDocument = New Xml.XmlDocument
        xmlReader.Load(strFileFullPath)
        Dim root As Xml.XmlNode = xmlReader.DocumentElement
        Console.WriteLine(" Root = " + root.Name)
        Console.WriteLine(" Root ChildNotes is {0:D}", root.ChildNodes(1).Attributes(0).Value)
        root.ChildNodes(1).Attributes(0).Value = "123456789"
        xmlReader.Save(strFileFullPath)
配置文件config.xml和程序放在同一个目录下，具体数据如下：
<DMConfig>
<TSServer value="abcdefg" />
<SystemName value="444444444444444" />
<LogsPath value="2222222222222222" />
<USBStickName value="33333333333333" />
<USBSleepTimer value="25" />
<IntroFilePath value="fffffffffffffff" />
<AppFilePath value="ddddddddddddddd" />
</DMConfig>