I keep getting a system error in this block
the error occurs in the 4th line( while readVal.read) Any help would be great.VB Code:
' read the xml data and validate Dim read As New Xml.XmlTextReader(.FileName) Dim readVal As New Xml.XmlValidatingReader(read) While readVal.Read If readVal.NodeType = System.Xml.XmlNodeType.Element Then If readVal.Name = "Media" Then Media = New DjData End If readVal.MoveToNextAttribute() If readVal.Name = "Year" Then Media.Year = readVal.ReadString.ToString ElseIf readVal.Name = "Author" Then Media.Author = readVal.ReadString.ToString ElseIf readVal.Name = "Title" Then Media.Title = readVal.ReadString.ToString ElseIf readVal.Name = "BPM" Then Media.BPM = readVal.ReadString.ToString ElseIf readVal.Name = "Media Type" Then Media.MediaType = readVal.ReadString.ToString mediaArray.Add(Media) End If End If End While readVal.Close() '' close reader read.Close() End With


Reply With Quote