Public Class Form1
 
    Dim flist As New List(Of String)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
          System.EventArgs) Handles Button1.Click
        'GetFiles(InputBox("Dein Verzeichnis"))
        GetFiles(TextBox1.text)
 
    End Sub
 
    Private Sub GetFiles(ByVal path As String)
        If IO.Directory.Exists(path) Then
            flist.Clear()
            ListBox1.Items.Clear()
            flist.AddRange(IO.Directory.GetFiles(path, "*.xls", _
              IO.SearchOption.AllDirectories))
            For Each s As String In flist
                Dim oFile As New IO.FileInfo(s)
                With oFile
                    ListBox1.Items.Add(.DirectoryName & "\" & .Name & vbTab & _
                      .Length & vbTab & .LastWriteTime)
                End With
            Next
 
            flist.Clear()
            ListBox2.Items.Clear()
            flist.AddRange(IO.Directory.GetFiles(path, "*.pdf", _
              IO.SearchOption.AllDirectories))
            For Each s As String In flist
                Dim oFile As New IO.FileInfo(s)
                With oFile
                    ListBox2.Items.Add(.DirectoryName & "\" & .Name & vbTab & _
                      .Length & vbTab & .LastWriteTime)
                End With
            Next
 
 
 
        End If
    End Sub
 
    Private Sub ListBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDoubleClick
        If ListBox1.IndexFromPoint(e.X, e.Y) > -1 Then
            Process.Start(flist(ListBox1.IndexFromPoint(e.X, e.Y)))
        End If
    End Sub
 
    Private Sub ListBox2_MouseDoubleClick(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles ListBox2.MouseDoubleClick
        If ListBox2.IndexFromPoint(e.X, e.Y) > -1 Then
            Process.Start(flist(ListBox2.IndexFromPoint(e.X, e.Y)))
        End If
    End Sub
 
 
 
End Class