Recent Files and File Loading

S

Shaddow

Member
Joined
Jan 6, 2004
Messages
14
here is the deal. I have an xml file that I want to read. my load function works perfectly... it takes a string filename from the loaddialogbox. this is then sent and included in the recent files menu. when selected I get the filename back that I wanted, the file opens but somereason fails to load. any suggestions? here is the code.
-----
-- this one works....
Private Sub MenuItemLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemLoad.Click
Declare a FileInfo object for the config file.
Dim strTemp As String
OpenFileDialog1.Filter = "Xml files (*.XML)|*.XML"
OpenFileDialog1.ShowDialog()
Dim XmlDocument As System.Xml.XmlTextReader
Dim q As Integer
q = 0
MsgBox()
If OpenFileDialog1.FileName <> "" Then

ListView1.Clear()
SetColumnNames()
ListView1.View = View.Details
Me.Refresh()
Try
XmlDocument = New System.Xml.XmlTextReader(OpenFileDialog1.FileName.ToString)
Catch
MsgBox("Error Opening File")
Exit Sub
End Try
Try
Dim l As ListViewItem
Dim x As Integer
x = 0
Do While (XmlDocument.Read())
If XmlDocument.Name.ToString = "Link" Then
Dim linkinfo(2) As String
Dim elementholder As String
elementholder = XmlDocument.ReadElementString()
linkinfo = elementholder.Split(",")
l = New ListViewItem(linkinfo(0))
l.Font = New Font("Courier new", 10, FontStyle.Underline)
l.ForeColor = Color.MediumBlue
l.UseItemStyleForSubItems = False
l.SubItems.Add(linkinfo(1))
l.SubItems.Add(linkinfo(2))
ListView1.Items.Add(l)
Me.Refresh()

End If
Loop
Catch ex As Exception
MsgBox(ex)
MsgBox("error in loading file")
Exit Try
Finally
XmlDocument.Close()
End Try
Me.Refresh()
End If
End Sub

--- This one fails.
Dim XmlDocument As System.Xml.XmlTextReader
ListView1.Clear()
SetColumnNames()
ListView1.View = View.Details
Me.Refresh()

MsgBox(CType(sender, MenuItem).Text.ToString)
Exit Sub
Dim myFile As String
myFile = CType(sender, MenuItem).Text.ToString
MsgBox("MyFILE: " & myFile)
Dim mystring As String

If Len(myFile) > 0 Then
Try
mystring = CType(sender, MenuItem).Index.ToString
XmlDocument = New System.Xml.XmlTextReader(mystring)
Catch
MsgBox("Error Opening File")
Exit Sub
End Try

Dim l As ListViewItem
Dim x As Integer
x = 0
Try
Do While (XmlDocument.Read())
MsgBox(XmlDocument.Name.ToString)
If XmlDocument.Name.ToString = "Link" Then
Dim linkinfo(2) As String
Dim elementholder As String
elementholder = XmlDocument.ReadElementString()
linkinfo = elementholder.Split(",")
l = New ListViewItem(linkinfo(0))
l.Font = New Font("Courier new", 10, FontStyle.Underline)
l.ForeColor = Color.MediumBlue
l.UseItemStyleForSubItems = False
l.SubItems.Add(linkinfo(1))
l.SubItems.Add(linkinfo(2))
ListView1.Items.Add(l)
Me.Refresh()
End If
Loop
Catch ex As Exception


-- exception always is right here....

MsgBox("EXCEPTION READING FILE VALUE: " & XmlDocument.Name.ToString)
MsgBox("File Opened, error in load")
Exit Try
Finally
XmlDocument.Close()
End Try
Me.Refresh()
MsgBox("Under Construction")

End If
End Sub

anyway. Im confused as why if the file is there and it opens, (its there, and in correct format). but fails on the read....
 
Back
Top