Sub listScans()
        'alle XML-Dateien werden in der Listbox angezeigt
        'zuerst den Inhalt löschen
        Form1.SelectFile.Items.Clear()
        'den Speicherort der zu zeigenden Dateien definieren
        Dim Desktop As String
        Desktop = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        Dim SpeicherOrt As New DirectoryInfo(Desktop & "\DJDaten")
        Dim datei As FileInfo
        'Schleife, um alle Dateien zu ermitteln
        Try
            For Each datei In SpeicherOrt.GetFiles("*.xml")
                Form1.SelectFile.Items.Add(datei.Name)
            Next
        Catch ex As Exception
            MessageBox.Show("Fehler bei der ListBox: " & ex.Message)
        End Try
    End Sub
 
    Sub showScan()
        Try
            Dim Desktop As String
            Desktop = Environment.GetFolderPath( _
              Environment.SpecialFolder.Desktop)
            Dim SpeicherOrt As New DirectoryInfo(Desktop & "\DJDaten\")
            Dim Verzeichnis As String
            Verzeichnis = SpeicherOrt.ToString
            Form1.ShowFile.Nodes.Clear()
            Dim DateiNummer As String
            DateiNummer = CStr(Form1.SelectFile.SelectedItem)
            Dim Ausgewählt As String
            Ausgewählt = Verzeichnis & DateiNummer
            Workcode.LoadFromXML(Ausgewählt, Form1.ShowFile)
        Catch ex As Exception
            MessageBox.Show("Fehler bei der showScan: " & ex.Message)
        End Try
    End Sub
 
    Sub LoadFromXML(ByVal FileName As String, ByVal TheTreeView As TreeView)
        Dim XDoc As New XmlDocument
        XDoc.Load(FileName)
        FillTreeView(TheTreeView.Nodes, XDoc.DocumentElement)
    End Sub
 
    Sub FillTreeView(ByVal CurrentNodes As TreeNodeCollection, ByVal xNode As _
      XmlNode)
        For Each xChild As XmlNode In xNode.ChildNodes
            FillTreeView(CurrentNodes.Add(xChild.InnerText).Nodes, xChild)
        Next
    End Sub