Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button6.Click
        Dim psp As String
        psp = mainform.Button1.Text
        Dim item As Object = ListBox1.SelectedItem
        Dim p As String
        Dim b As String
        Dim DirList As New ArrayList
        p = psp & "pdf\"
        b = psp & "text\"
        Dim Dirs() As String = Directory.GetDirectories(p)
        GetDirectories2(p, DirList)
        If Not item Is Nothing Then
            Dim index As Integer = ListBox1.Items.IndexOf(item)
            If index < ListBox1.Items.Count - 1 Then
                Kill(p & ListBox1.SelectedItem)
                ListBox1.Items.RemoveAt(index)
                MsgBox("pdf gelöscht")
            Else
                Kill(b & ListBox1.SelectedItem & \test.txt)
                rmdir(b & ListBox1.SelectedItem)
                ListBox1.Items.RemoveAt(index)
                MsgBox("txt gelöscht")
            End If
        End If
    End Sub