XML Error happening randomely

See more:

errors

XmlReader

Hi,

Can someone please help a novice?

I am using XMLTextReader to hold the screen position of a form. The StoreFormInformation sub is called in the FormClosed event and LoadFormInformation is called in the Load event of the form. This works fine for a couple of times (no fixed amount, it just seems to happen randomly) but then for no apparent reason the xml gets corrupted (See below - for some reason extra characters are appended to the closing root level line, in this case a '>'). Can anyone please give me a tip as to where I am going wrong.

Thanks in advance.

-----Created XML-----

<?xml version="1.0" encoding="utf-8"?>
<DERMPAMappingTools_MapDetails>
  <XPos>684</XPos>
  <YPos>73</YPos>
</DERMPAMappingTools_MapDetails>>

-----My Code-----

Public Sub StoreFormInformation(ByVal frm As Form)
        On Error GoTo eh

        ' Get the isolated store for this assembly
        Dim isf As IsolatedStorageFile = IsolatedStorageFile.GetUserStoreForAssembly()

        ' Create or open a file at the top level of the store
        Dim stmWriter As IsolatedStorageFileStream = New IsolatedStorageFileStream("FormSettings.xml", FileMode.OpenOrCreate, FileAccess.ReadWrite, isf)

        'Create stream XML writer
        Dim xmlWriter As New XmlTextWriter(stmWriter, Encoding.UTF8)

        'Add values to writer
        xmlWriter.Formatting = Formatting.Indented
        xmlWriter.WriteStartDocument()
        xmlWriter.WriteStartElement(frm.Name)
        xmlWriter.WriteStartElement("XPos")
        xmlWriter.WriteString(frm.Location.X)
        xmlWriter.WriteEndElement()
        xmlWriter.WriteStartElement("YPos")
        xmlWriter.WriteString(frm.Location.Y)
        xmlWriter.WriteEndElement()
        xmlWriter.WriteEndElement()
        xmlWriter.WriteEndDocument()

        xmlWriter.Flush()
        xmlWriter.Close()
        stmWriter.Close()
        isf.Close()
        Exit Sub

eh:     MsgBox("StoreFormInformation - " & Err.Description)

    End Sub

    Public Sub LoadFormInformation(ByVal frm As Form)
        On Error GoTo eh

        ' Get the isolated store for this assembly
        Dim isf As IsolatedStorageFile = IsolatedStorageFile.GetUserStoreForAssembly()

        Dim StoreFileNames As String()
        Dim StoreFile As String
        StoreFileNames = isf.GetFileNames("FormSettings.xml")

        For Each StoreFile In StoreFileNames
            If StoreFile = "FormSettings.xml" Then
                'If the file does exist, then processing to read the XML file into a stream reader object occurs:
                Dim stmReader As New StreamReader(New IsolatedStorageFileStream("FormSettings.xml", FileMode.Open, isf))
                Dim xmlReader As New XmlTextReader(stmReader)

                'Find attribute relative to form
                xmlReader.ReadToFollowing(frm.Name)

                Dim xPos, yPos As Integer

                While xmlReader.Read()
                    Select Case xmlReader.Name
                        Case "XPos"
                            xPos = xmlReader.ReadString
                        Case "YPos"
                            yPos = xmlReader.ReadString
                    End Select
                End While

                frm.Location = New System.Drawing.Point(xPos, yPos)
                'Again, as in the btnSave Click event we clean up by closing the reader objects:

                xmlReader.Close()
                stmReader.Close()
                'Close off the file search loop and the IsolatedStorageFile object:

            End If
        Next
        isf.Close()

        Exit Sub

eh:     MsgBox("LoadFormInformation - " & Err.Description)
        isf = Nothing
       

    End Sub