关于XML文件的读取更改!

Question

XML文件内容
<?xml version="1.0" encoding="UTF-8"?>
   <name>
       <FileInput>
     <filename>F:\1.htm</filename>
      </FileInput>
   </name>
我已经可以读取f:\1.htm 请问如何把f:\1.htm替换成f:\2.htm 
然后保存这个XML文件!

Answer 1

Private Sub Command1_Click()
    Dim xmlObject
    Dim xmlNode
    Dim strFileName As String
    
    strFileName = "c:\test.xml"
    
    Set xmlObject = CreateObject("MSXML2.DOMDocument")
    xmlObject.Load strFileName
    
    Set xmlNode = xmlObject.documentElement
    
    Debug.Print xmlNode.ChildNodes(0).ChildNodes(0).Text
    xmlNode.ChildNodes(0).ChildNodes(0).Text = "F:\2.htm"
    
    xmlObject.save strFileName
    
    Set xmlObject = Nothing
    Set xmlNode = Nothing
End Sub