Public Class Form1
    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
        mSourceDir = New IO.DirectoryInfo("c:\Test")
        mDirectories = mSourceDir.GetDirectories
        mFiles = mSourceDir.GetFiles("*.doc")
        BindLists()
    End Sub
 
    Private Sub 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 konvertieren
            Dim datei As IO.FileInfo = CType(lstDateiliste.SelectedItem, _
              IO.FileInfo)
            LadeDatei(datei)
        End If
    End Sub
End Class