Public Sub CreateFoldersFileInfos _
    (so As IO.SearchOption, ParamArray folders() As String)
 
    FileInformationArray = Nothing
 
    If folders Is Nothing OrElse folders.Length = 0 Then Exit Sub
 
    For i As Integer = 0 To folders.Length - 1
        If Not IO.Directory.Exists(folders(i)) Then Exit Sub
    Next i
 
    'Alle Ordner nacheinander abfragen
    For i As Integer = 0 To folders.Length - 1
       Dim odir As New IO.DirectoryInfo(folders(i))
       Getfiles(odir)
    Next i
 
    FileInformationArray = _FileInformationList.ToArray
    RaiseEvent Finished(Me, New FilesystemStuffArgs( _
      FileInformationArray.Length))
End Sub

Private Sub CreateFileList()
 
      'Die Ordner (beliebige Anzahl) werden hintereinander als Parameter
      'angegeben ....  
      FileStuff.CreateFoldersFileInfos(IO.SearchOption.AllDirectories, _
        "C:\Daten\abt1", "C:\Daten\abt2", "C:\xxx", ....)
End Sub