I'll just wait until i hear less problems before i start foolin around with it, im usually a poor tester

Code: Select all
on error resume next
'ttl = GetText(trk.ChildNodes.Item(0)) <<< original code
ttl = GetText(trk.getElementsByTagName("title").Item(0))
art = GetText(trk.getElementsByTagName("artist").Item(0).ChildNodes.Item(0))
rel = GetText(trk.getElementsByTagName("first-release-date").Item(0))
gen = GetText(trk.getElementsByTagName("genre-list").Item(0).ChildNodes.Item(0).ChildNodes.Item(0))
on error goto 0
Code: Select all
xml.Load(dat)
Code: Select all
Dim fil : Set fil = fso.OpenTextFile(dat,1,True)
dim s: s = Replace(fil.ReadAll,"mip:","")
Dim iPF: iPF = InStr(s, "file=") - 1
If iPF > 0 Then
Dim iPP: iPP = InStr(Mid(s, iPF + 7), """") + iPF + 8
s = Left(s, iPF) & Mid(s, iPP)
End If
fil.Close()
Set fil = fso.OpenTextFile(dat,2,True)
fil.Write(s)
fil.Close()
Call xml.Load(dat)
'Call xml.LoadXML(Replace(fil.ReadAll,"mip:","")) <<< original