Dim xmldoc As New MSXML.DOMDocument
Dim xmlnode As IXMLDOMNode
Dim root As IXMLDOMNode
Dim node As IXMLDOMNode
Dim xmlele As IXMLDOMElement
Dim xmlatt As IXMLDOMAttribute
Dim Test As IXMLDOMNode
Dim i As Integer
Dim Song As String
Dim Path As String
xmldoc.Load "f:/songs/songs.xml"
Set xmlele = xmldoc.documentElement
Set node = xmldoc.selectSingleNode("//SONG[@SONGID="+"s"+m_SongId+"]")
Song = node.childNodes.Item(0).Text
Path = node.childNodes.Item(2).Text
m_CurrentSongName = Song
m_CurrentSongPath = Path
Dim xmlnode As IXMLDOMNode
Dim root As IXMLDOMNode
Dim node As IXMLDOMNode
Dim xmlele As IXMLDOMElement
Dim xmlatt As IXMLDOMAttribute
Dim Test As IXMLDOMNode
Dim i As Integer
Dim Song As String
Dim Path As String
xmldoc.Load "f:/songs/songs.xml"
Set xmlele = xmldoc.documentElement
Set node = xmldoc.selectSingleNode("//SONG[@SONGID="+"s"+m_SongId+"]")
Song = node.childNodes.Item(0).Text
Path = node.childNodes.Item(2).Text
m_CurrentSongName = Song
m_CurrentSongPath = Path