Try
            Dim p1 As String
 
            With FolderBrowserDialog1
                .SelectedPath = Application.StartupPath & "\Dokumente"
            End With
            FolderBrowserDialog1.ShowDialog()
            p1 = FolderBrowserDialog1.SelectedPath
 
            If p1.EndsWith("\") And p1.Length > 3 Then
                p1= p1.Substring(0, p1.Length - 1)
            End If
            ' Directory-Object erstellen
            Dim oDir As New System.IO.DirectoryInfo(p1)
 
            ' alle Zeugnis-Dateien des Ordners
            Dim oFiles As System.IO.FileInfo() = oDir.GetFiles("*.xml")
 
            ' Datei-Array durchlaufen und in 
            ' ListBox übertragen
            Dim oFile As System.IO.FileInfo
            ListBox1.Items.Clear()
            For Each oFile In oFiles
                ListBox1.Items.Add(oFile.Name)
            Next
 
            spfad = ListBox1.Items.tostring
        Catch Ausnahe As Exception
        End Try

 Dim a As String
        Dim b As String
        Dim c As String
        Dim d As String
 
        Try
            Dim oLaden As New XML_DATA.Class1
 
            If spfad = "" Then
                MsgBox("Keine Daten!")
            End If
 
            For Each file In spfad
                ObjektLaden(Of XML_DATA.Class1)(spfad, oLaden)
                a = oLaden.String1
                b = oLaden.String2
                c = oLaden.String3
                d = a & " " & b & " " & c
                My.Computer.FileSystem.WriteAllText(Application.StartupPath & _
                  "\Database.txt", a_ds, True)
            Next
            MsgBox("Fertig!")
 
        Catch Ausnahe As ArgumentException
        End Try