Imports System.IO
Public Class Form1
Private paths() As String = {"x"}
Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles ListBox1.DoubleClick
Process.Start(paths(ListBox1.SelectedIndices(0) + 1))
 
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
Dim dInitPath As DirectoryInfo
Dim lSearchpattern As List(Of String)
Dim lFiles As List(Of FileInfo)
ListBox1.Items.Clear()
 
lSearchpattern = New List(Of String)
lSearchpattern.Add("*" & ComboBox1.Text & "*" & "*" & TextBox1.Text & "*" & "*" _
  & TextBox2.Text & "*" & "*" & TextBox3.Text & "*" & "*.pdf" & "*")
dInitPath = New IO.DirectoryInfo("server")
lFiles = searchFiles(dInitPath, lSearchpattern)
For Each fiFile As FileInfo In lFiles
ListBox1.Items.Add(fiFile.Name)
ReDim Preserve paths(paths.Length)
paths(paths.Length - 1) = fiFile.FullName
Next
End Sub
Private Function searchFiles(ByVal dPath As DirectoryInfo, ByVal _
lSearchpattern As List(Of String)) As List(Of FileInfo)
Dim lFiles As List(Of FileInfo) = New List(Of FileInfo)
For Each sPattern As String In lSearchpattern
For Each fiFile As FileInfo In dPath.GetFiles(sPattern, _
  SearchOption.AllDirectories)
lFiles.Add(fiFile)
Next
Next
Return lFiles
End Function

    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

  Private Function searchFiles(ByVal dPath As DirectoryInfo, ByVal _
    lSearchpattern As List(Of String)) As List(Of FileInfo)
        Dim lFiles As List(Of FileInfo) = New List(Of FileInfo)
        ProgressBar1.Value = 0
        ProgressBar1.Style = ProgressBarStyle.Continuous
        ProgressBar1.Maximum = lSearchpattern.Count
        For Each sPattern As String In lSearchpattern
            For Each fiFile As FileInfo In dPath.GetFiles(sPattern, _
              SearchOption.AllDirectories)
                ProgressBar1.Increment(1)
                If ProgressBar1.Value = 100 Then
                End If
                lFiles.Add(fiFile)
            Next
        Next
        Return lFiles
    End Function

    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

lboFiles.DisplayMember = Filetable.Columns(0).ColumnName
lboFiles.DataSource = Filetable

Dim bsFiles As New BindingSource
bsFiles.DataSource = Filetable
 
lboFiles.DisplayMember = "FileName"
lboFiles.DataSource = bsFiles
 
bsFiles.Sort = "FileName ASC"  'Sortierspalte(n) und Richtung angeben
'bsFiles.Filter Filterkriterium angeben

FilesToListbox(lboFiles, {"C:\xxxx", "C:\yyyy"}, {"*.jpg", "*png"})