Private Sub FilesToListbox(ByVal lboFiles As ListBox, _
          ByVal DirectoryToSearch() As String, Searchpattern() As String)
 
        lboFiles.DataSource = Nothing
        Dim Filetable As New DataTable
        If FilesToDatatable(Filetable, DirectoryToSearch, Searchpattern) < 1 Then
            MsgBox("Keine Dateien gefunden")
            Exit Sub
        End If
 
        lboFiles.DisplayMember = Filetable.Columns(0).ColumnName
        lboFiles.DataSource = Filetable
    End Sub
 
 
 
    Private Function FilesToDatatable(ByVal FileTable As DataTable, _
                      ByVal DirectoryToSearch() As String, _
                      Byval Searchpattern() As String) As Integer
 
 
        If FileTable Is Nothing Then FileTable = New DataTable
 
        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 direc As String In DirectoryToSearch
                If IO.Directory.Exists(direc) Then
                    For Each sp As String In Searchpattern
                        For Each file As String In IO.Directory.GetFiles(direc, _
                          sp)
                            FileTable.Rows.Add(IO.Path.GetFileName(file), direc)
                        Next file
                    Next sp
                    'hier könnte man einen Progressbar-Value hochsetzen
                    'Maximum wäre DirectorySearch.Length * SearchPattern.Length
                End If
            Next direc
            Return FileTable.Rows.Count
        Catch ex As Exception
            Return -1
        End Try
    End Function