Private mSourceDir As IO.DirectoryInfo
    Private mDirectories() As IO.DirectoryInfo
    Private mFiles() As IO.FileInfo
 
    Public Sub New()
        InitializeComponent()
        'die Arrays mit Daten füllen
        'Quellordner bestimmen
        mSourceDir = New IO.DirectoryInfo("c:\Test")
        'alle Ordner aus dem Quellordner holen
        mDirectories = mSourceDir.GetDirectories
        'alle Dateien mit der Endung "doc" aus dem Quellordner holen
        mFiles = mSourceDir.GetFiles("*.doc")
        'jetzt die Listen an die Arrays binden (ab hier: "BindLists")
        'die Quelle für die Items in der Liste bestimmen
        lstOrdnerliste.DataSource = mDirectories
        'die Eigenschaft festlegen, die angezeigt werden soll
        lstOrdnerliste.DisplayMember = "Name"
        'das gleiche nochmal mit den Files
        lstDateiliste.DataSource = mFiles
        lstDateiliste.DisplayMember = "Name"
    End Sub
 
 
    Private Sub LadeDatei(ByVal datei As IO.FileInfo)
        'die Datei mit dem Standardprogramm ausführen das in Windows mit der 
        ' Dateiendung verknüpft ist .doc -> Word
        Process.Start(datei.FullName)
    End Sub
 
    Private Sub lstDateiliste_MouseDoubleClick(ByVal sender As System.Object, _
      ByVal e As System.Windows.Forms.MouseEventArgs) Handles _
      lstDateiliste.MouseDoubleClick
        If lstDateiliste.SelectedItem IsNot Nothing Then
            'da die Liste "mFiles" als Quelle hat sind die Items keine Strings, 
            ' sondern FileInfos
            'also einfach den SelectedItem in eine FileInfo konvertieren
            'bei lstOrdnerliste müsste es DirectoryInfo sein da als Quelle 
            ' mDirectories dient
            Dim datei As IO.FileInfo = CType(lstDateiliste.SelectedItem,  _
              IO.FileInfo)
            LadeDatei(datei)
        End If
    End Sub