帮忙看看这段程序的思想是什么了？谢谢大家了！

Question

For ii = 0 To objXML.Attributes.length - 1
            If objXML.Attributes.Item(ii).nodeName <> "UnID_trv_node_val_22134" Then　？？？？？？？？？为什么这块是不等于ｕnID_trv_node_val_22134？？？？？？？？
                lAttKey = GetKey
                Set NodX = TreeX.Nodes.Add(ParentName, tvwChild, lAttKey, objXML.Attributes.Item(ii).nodeName, 4) ' Child　　
　　　？？？？？？？为什么这块是4？？？？？
                Set NodX = TreeX.Nodes.Add(lAttKey, tvwChild, GetKey, objXML.Attributes.Item(ii).Text, 5)  ' Child
　　　？？？？？？？为什么这块是５？？？？？
            End If
    Next ii' Build the Elements
    For ii = 0 To objXML.childNodes.length - 1
        lEleKey = GetKey
        If objXML.childNodes.Item(ii).nodeType = NODE_TEXT Then
            Set NodX = TreeX.Nodes.Add(ParentName, tvwChild, lEleKey, objXML.childNodes.Item(ii).Text, 6) ' Child
　　　？？？？？？？为什么这块是６？？？？？
            Set NewObj = MasterObj.createAttribute("UnID_trv_node_val_22134")　
            NewObj.Value = lEleKey
            objXML.childNodes(ii).Attributes.setNamedItem NewObj
        Else
            Set NodX = TreeX.Nodes.Add(ParentName, tvwChild, lEleKey, objXML.childNodes.Item(ii).nodeName, 3) ' Child
　　　　　？？？？？？？为什么这块是３？？？？？
            Set NewObj = MasterObj.createAttribute("UnID_trv_node_val_22134")
            NewObj.Value = lEleKey
            objXML.childNodes(ii).Attributes.setNamedItem NewObj
            Dim objXMLchild As New objTreeBuild
            bCheck = objXMLchild.BuildTree(objXML.childNodes.Item(ii), TreeX, lEleKey, MasterObj)
            Set objXMLchild = Nothing
        End If
    Next ii作用是把xml的数据显示到树型结构中，可是我想知道他是怎么实现的了？

Answer 1

把XML的数据显示到树型结构中这样就可以了
Dim xmlDoc As DOMDocument30
Set xmlDoc = New DOMDocument30
If Not xmlDoc.Load(App.Path + "\目录.xml") Then
    MsgBox "不能读取原有的目录树记录。"
    Exit Sub
End If
TreeView1.Nodes.Clear
Dim iNode As Integer
Dim newElement As IXMLDOMElement
For iNode = 0 To xmlDoc.getElementsByTagName("NODE").length - 1
    Set newElement = xmlDoc.getElementsByTagName("NODE").Item(iNode)
    If newElement.getAttribute("ParentKey") = "" Then
        TreeView1.Nodes.Add , , newElement.getAttribute("Key"), newElement.getAttribute("Caption")
    Else
        TreeView1.Nodes.Add newElement.getAttribute("ParentKey"), tvwChild, newElement.getAttribute("Key"), newElement.getAttribute("Caption")
    End If
Next你的程序应该还有其它作用~~