vb6读写xml

[cxy5636917]

这是一个xml文件
<?xml version="1.0" encoding="utf-8" ?>
- <playlist version="1" xmlns="http://xspf.org/ns/0/">
- <trackList>
- <track>
<title>Afraid (local)</title>
<creator>Jeroen Wijering</creator>
<location>12.flv</location>
</track>
</trackList>
</playlist>


我想用代码替换掉12.flv为16.flv该怎么办？

我利用下面的代码可以找到这个12.flv。可是不会修改和保存。请各位赐教啊。

Private Sub Command1_Click()
Dim xmlDocument As New DOMDocument
    Dim xmlNodeList As IXMLDOMNodeList
    Dim xmlNode As IXMLDOMNode
    Dim i As Integer, j As Integer

    xmlDocument.async = False
    If xmlDocument.Load(App.Path & "/playlist.xml") = False Then
        MsgBox "XML文件载入失败!"
        Set xmlDocument = Nothing
        Exit Sub
    End If

    Set xmlNodeList = xmlDocument.getElementsByTagName("location")
    '遍历指定的结点
    For i = 0 To xmlNodeList.length - 1
        Set xmlNode = xmlNodeList.Item(i)
        '遍历下面的子元素
        For j = 0 To xmlNode.childNodes.length - 1
            Debug.Print xmlNode.childNodes.Item(j).Text
        Next

    Next

    Set xmlNodeList = Nothing
    Set xmlNode = Nothing
    Set xmlDocument = Nothing

End Sub

[cxy5636917]

自己给自己结贴。研究百度来的代码。自己解决了。