Private Sub FilesToListbox(ByVal lboFiles As ListBox, _
        ByVal DirectoryToSearch As String, Searchpattern As String)
 
        lboFiles.DataSource = Nothing
 
        'Erstellen und Füllen der Datatable
        Dim Filetable As New DataTable
        If FilesToDatatable(Filetable, DirectoryToSearch, Searchpattern) < 1 Then
            MsgBox("Keine Dateien gefunden")
            Exit Sub
        End If
 
        'Bindung der Tabellenspalte an die Listbox
        lboFiles.DisplayMember = Filetable.Columns(0).ColumnName
        lboFiles.DataSource = Filetable
    End Sub
 
 
 
    Private Function FilesToDatatable(ByVal FileTable As DataTable, _
                                      ByVal DirectoryToSearch As String, _
                                      Searchpattern As String) As Integer
 
        'Füllen der Datatable-Zeilen
 
        If Not IO.Directory.Exists(DirectoryToSearch) Then Return -1
        If FileTable Is Nothing Then FileTable = New DataTable
 
        'Erstellen der Spalten (falls nötig)
        If Not FileTable.Columns.Contains("FileName") Then
            FileTable.Columns.Add(New DataColumn("FileName", GetType(String)))
        End If
 
        If Not FileTable.Columns.Contains("FilePath") Then
            FileTable.Columns.Add(New DataColumn("FilePath", GetType(String)))
        End If
 
        FileTable.Rows.Clear()
 
        Try
            For Each file As String In IO.Directory.GetFiles _
                (DirectoryToSearch, Searchpattern)
 
                FileTable.Rows.Add(IO.Path.GetFileName(file), DirectoryToSearch)
            Next file
 
            Return FileTable.Rows.Count
        Catch ex As Exception
            Return -1
        End Try
    End Function