Public Class Form1
    Dim flist As New List(Of String)
 
        'GetFiles("Dein Directory")
 
 
    Private Sub GetFiles(ByVal path As String)
        If IO.Directory.Exists(path) Then
            flist.Clear()
            ListBox1.Items.Clear()
            flist.AddRange(IO.Directory.GetFiles(path, "*.*", _
              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
        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
End Class