使用VB6编辑XML的属性值

我需要使用VB6更新bkp_路径的属性值

XML文件

---

但无法确定如何更新属性值。

您需要获取对节点对象的引用，然后调用

setAttribute（）

指定新值：

node.setAttribute "bkp_path", "wibble"

您的代码还读取所有

Param

节点的值，但您可能只想使用第一个节点或更新一个特定的节点。

这就成功了：

---

node。选择SingleNode（@bkp\u path”）。Text=“D:\Colors\Blue”

是的，我希望更新一个特定属性，而不是第一个属性，在本例中为“bkp\u path”。我之前也试过了，但没用。我说的是节点（

），而不是属性（

src\u path=

）。属性（使用此代码）由名称引用。您提供的代码读取每个

节点的值，但我假设您只想设置其中一个。是的，它应该读取每个

并更新每个

bkp\u路径

属性。最后，找到了解决方案。这就是我要找的：

node。选择SingleNode（@bkp\u path”）。Text=“D:\Colors\Blue”

无论如何，感谢您的及时回复。这与我建议的一样。。。如果你已经找到了答案。

Dim doc As New MSXML2.DOMDocument
Set doc = New MSXML2.DOMDocument
Dim success As Boolean
'Load Config.xml
success = doc.Load("\Config\config.xml")

If success = False Then
  MsgBox ("Unable to locate the configuration file")
  Exit Function
Else
  Dim nodeList As MSXML2.IXMLDOMNodeList

  Set nodeList = doc.selectNodes("/ServerDetails/Param")

  If Not nodeList Is Nothing Then
     Dim node As MSXML2.IXMLDOMNode

     For Each node In nodeList
        srcpath = node.selectSingleNode("@src_path").Text
        bkpPath = node.selectSingleNode("@bkp_path").Text            
     Next node
  End If
End If

node.setAttribute "bkp_path", "wibble"