Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim dir As New IO.DirectoryInfo("D:\Semester\9\Unsinn")
        If dir.Exists Then
            Dim files() As IO.FileInfo = dir.GetFiles("*.pdf", _
              IO.SearchOption.TopDirectoryOnly)
            ListBox1.DataSource = files
            ListBox1.DisplayMember = "Name"
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim selectedFile As IO.FileInfo = TryCast(ListBox1.SelectedItem, _
        IO.FileInfo)
        If selectedFile IsNot Nothing Then
            Dim path As String = selectedFile.FullName
            'Befehle fürs Drucken
        End If
    End Sub