Function F_GetAllFiles(ByVal sPath As String, ByVal pattern As String) As _
  String()
 
        'Ordner in Array speichern
        arr_Folders = Directory.GetDirectories(sPath)
 
        ' Schleife zum Durchlaufen der Ordnerarrays
        For m = 0 To arr_Folders.Length - 1
            ' Dateien ermitteln und temporär zwischenspeichern
            arr_Temp = Directory.GetFiles(arr_Folders(m), _type2)
 
            ' temporäres Array dem Array arr_Files() hinzufügen
            If arr_Files Is Nothing Then
                arr_Files = arr_Temp
 
            Else
                ' "alte" Größe des Arrays merken
                nSize = arr_Files.Length
                ' Array erweitern...
                ReDim Preserve arr_Files(nSize + arr_Temp.Length - 1)
                arr_Temp.CopyTo(arr_Files, nSize)
 
            End If
 
            ' Prüfen, ob es weitere Unterordner gibt.
            F_GetAllFiles(arr_Folders(m), _type2)
        Next m
 
        ' Funktionsrückgabewert:
        ' String-Array mit allen Dateiennamen
        Return arr_Files
    End Function