Private Sub Rekursiv(ByVal oDir As IO.DirectoryInfo)
 
Dim oSubDir As IO.DirectoryInfo
        Dim oFile As IO.FileInfo
 
 
Dim suchworte() As String = txtSuche.Text.Split(" ")
                Dim suchliste As New List(Of String)
                For w As Integer = 0 To suchworte.Length - 1
                    If suchworte(w).Trim.Length > 0 Then
                        suchliste.Add(suchworte(w).Trim)
                    End If
                Next w
 
 For Each oFile In oDir.GetFiles()
                    Dim gefunden As Boolean = True
                    For w As Integer = 0 To suchliste.Count - 1
 
                        If Not oFile.Name.ToLower.Contains(suchliste( _
                          w).ToLower) Then 
                            gefunden = False
                        Else
                            i = i + 1
 
                        End If
 
                    Next
 
                    If gefunden Then
 
                        ListBox1.Items.Add(oFile.Name)
 
                    End If
                Next oFile
 
For Each oSubDir In oDir.GetDirectories()
                        Rekursiv(oSubDir)
                    Next
 
End Sub