I had some problems with an object null reference. The following snipped solved my problem (somewhere around line 250):
Code: Select all
For Each node In trk.childnodes
Select Case node.nodename
Case "title" ttl = GetText(node)
Case "artist" GetText(node.ChildNodes.Item(0))
Case "first-release-date" rel = GetText(node)
Case "genre-list" gen = GetText(node)
End Select
next
' ttl = GetText(trk.ChildNodes.Item("titel"))
' art = GetText(trk.ChildNodes.Item(1).ChildNodes.Item(0))
' rel = GetText(trk.ChildNodes.Item(3))
' gen = GetText(trk.ChildNodes.Item(4).ChildNodes.Item(0))