Private Sub btn_Datei_ueberfuehren_Click(sender As Object, e As EventArgs) _
    Handles btn_Datei_ueberfuehren.Click
     'hier klemmt es, die datei soll angezeigt und eingelesen werden
     'im Archiv liegen aber keine txt Dateien nur der Arbeitsstand der mal 
     ' gespeichert wird 
    End Sub
 
    Private Sub btn_Dateien_Aktualisieren_Click(sender As Object, e As _
      EventArgs) Handles btn_Dateien_Aktualisieren.Click
        ListBox1.ClearSelected()
        Archiv_ListBoxfill()
    End Sub
 
    Public Sub Archiv_ListBoxfill()
        'D:\Sperrlisten\Status-Archiv
        Dim Pfad As String = "D:\Sperrlisten\Status-Archiv"
        For Each File As String In FileIO.FileSystem.GetFiles(Pfad, _
          FileIO.SearchOption.SearchAllSubDirectories)
 
            If File.ToLower.EndsWith(".XML", _
              StringComparison.CurrentCultureIgnoreCase) Then
                ListBox1.Items.Add(System.IO.Path.GetFileName(File))
 
            End If
        Next
    End Sub
 
    Private Sub frmSperrlisten_Load(sender As Object, e As EventArgs) Handles _
      Me.Load
        Me.Text = "Status-Archiv"
        Archiv_ListBoxfill()
    End Sub
 
    Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles _
      ListBox1.Click
        Me.TextBox1.Text = Me.ListBox1.SelectedItem
    End Sub