Private Shared appdir As String = Environment.GetFolderPath( _
  Environment.SpecialFolder.ApplicationData) & "\YourCompany"
 
Public Shared Sub XMLWrite(ByRef spfad As String, ByRef startmode As startmode)
        ' Schreibt das XML-File
 
        Try
            ' Verzeichnis vorhandnen?
            If Not System.IO.Directory.Exists(applogindir) Then
                System.IO.Directory.CreateDirectory(applogindir)
            End If
 
            ' Auswahl einer Kodierungsart für die Zeichenablage 
            Dim enc As New System.Text.UnicodeEncoding
            Dim appenv As New System.IO.DirectoryInfo(appdir)
            Dim writer As New Xml.XmlTextWriter(applogindir & "\Settings.xml", _
              enc)
 
            ' Schreibe File
            With writer
                .WriteStartDocument()
 
                ' Formatierung: 4er-Einzüge verwenden 
                .Formatting = Xml.Formatting.Indented
                .Indentation = 4
 
                .WriteStartElement("File")
                .WriteAttributeString("Pfad", spfad)
                .WriteEndElement()
 
                .Close()
            End With
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
    Public Shared Sub XMLRead(ByRef oControl As Control)
        ' Liest das XML-File aus
 
        Try
            ' File existent?
            Dim fileexist As New System.IO.FileInfo(applogindir & _
              "\Settings.xml")
            If Not fileexist.Exists Then Exit Sub
 
            ' XML-Objekt
            Dim xd As New Xml.XmlDocument
            xd.Load(applogindir & "\Settings.xml")
 
            ' Zuweisung des Pfades
            GlobalVarPfad = xd.SelectSingleNode("//File/@Pfad").Value
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub