Help!有API函数来读取XML文件吗?

Question

Win2000下是否有API函数来读取XML文件，就象读.ini那样。
或者有其它SDK?
好像.net可以直接将XML文件读成TreeView结构，可现在不能用.Net，
我要用VB6或VC6读取，不知是否有合适的类，
急：（

Answer 1

利用xml对象
或着直接象文本文件那样读取，读取之后在对字串进行处理

Answer 2

参考一下：
Option ExplicitDim m_XMLDoc As MSXML.DOMDocument
Dim m_XMLNode As MSXML.IXMLDOMNode
Dim m_XMLNodeList As MSXML.IXMLDOMNodeListPrivate Sub Form_Load()
'---------------------------------------------------------------------------------------
' Procedure : Form_Load
' DateTime  : 08/16/2002 18:02
' Author    : bwu
' Purpose   :
'---------------------------------------------------------------------------------------
'
    Dim lvwItem As ListItem
    Dim i As Integer
    
   On Error GoTo Form_Load_Error    Set m_XMLDoc = New MSXML.DOMDocument
    m_XMLDoc.Load "E:\config.xml"
    
    Set m_XMLNode = m_XMLDoc.documentElement
    
    If m_XMLNode.nodeName = "application" Then
        If m_XMLNode.childNodes.length > 0 Then
            For i = 0 To m_XMLNode.childNodes.length - 1
                If m_XMLNode.childNodes(i).nodeType = NODE_ELEMENT And _
                    m_XMLNode.childNodes(i).nodeName = "Config" Then
                        Set m_XMLNodeList = m_XMLNode.childNodes(i).childNodes
                        FillNodeLvw m_XMLNodeList
                End If
            Next
        End If
    End If   On Error GoTo 0
   Exit SubForm_Load_Error:
    MsgBox "Form_Load Error!"
End SubPrivate Sub FillNodeLvw(ByVal Node As IXMLDOMNodeList)
'---------------------------------------------------------------------------------------
' Procedure : FillNodeLvw
' DateTime  : 08/16/2002 18:02
' Author    : bwu
' Purpose   :
'---------------------------------------------------------------------------------------
    Dim lvwItem As ListItem
    Dim i As Integer
    
    On Error GoTo FillNodeLvw_Error    For i = 0 To Node.length - 1
        If Node(i).nodeType = NODE_ELEMENT Then
            Set lvwItem = L.ListItems.Add(, "A_" & i, Node(i).Text)
            lvwItem.SubItems(1) = Node(i).Attributes.Item(0).Text
        End If
    Next   On Error GoTo 0
   Exit SubFillNodeLvw_Error:
    MsgBox "FillNodeLvw Error!"
End Sub

Answer 3

找到了，原来直接有类可以引用，还以为要用api，象操作ini那样，汗
还是对二位表示感谢！