Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MenuItem2.Click
        '//FileFolderBrowser to locate .PDF Files
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            strSpeicherPfad = FolderBrowserDialog1.SelectedPath & "\"
            Me.StatusBar1.Text = strSpeicherPfad 'Todo: Pfadlänge dynamisch 
            ' machen
            Dim i As Integer = -1
 
            Me.CheckedListBox1.Items.Clear()
            For Each File As String In IO.Directory.GetFiles(strSpeicherPfad)
                i += 1
                Me.CheckedListBox1.Items.Add(File.ToString)
                If File.EndsWith(".pdf") Then
                    Me.CheckedListBox1.SetItemChecked(i, True)
                End If
            Next
        Else
            MsgBox("No folder selected - no data grabbed!", _
              MsgBoxStyle.Information, "Exportabbruch")
            Exit Sub
        End If
    End Sub

= [ Accu ] =