Public Datei() As String
Sub Dateien_Einsammeln()
'Anstelle von Application.FileSearch 2007
Dim Suchordner As String

With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    .Title = "Laufwerk/ Ordner wählen"
    .Show
    Suchordner = .SelectedItems(1)
End With

If Suchordner = "" Then Exit Sub
If Right(Suchordner, 1) = "\" Then Suchordner = Left(Suchordner, Len(Suchordner) - 1)

'Get_Filename [wo suchen?],[Unterordner ja/nein],[Datentyp --> "*" --> holt alles]
Get_Filenames Suchordner, True, "xls"
End Sub
Public Function Get_Filenames _
        (OberOrdner As String, Unterordner As Boolean, Datentyp As String)

Dim Zähler As Long, varTemp As String, Ordner() As String

ReDim Ordner(0 To 0): ReDim Datei(0 To 0)
Ordner(0) = OberOrdner: Zähler = 0

If Unterordner = False Then GoTo Nur_Hauptordner

While Zähler <= UBound(Ordner)
    OberOrdner = Ordner(Zähler) & "\"
    varTemp = Dir(OberOrdner & "*.*", vbDirectory)
    While varTemp <> ""
      If CBool(GetAttr(OberOrdner & varTemp) And vbDirectory) = True Then
        If (varTemp <> ".") And (varTemp <> "..") Then
            ReDim Preserve Ordner(UBound(Ordner) + 1)
            Ordner(UBound(Ordner)) = Ordner(Zähler) & "\" & varTemp
        End If
      End If
      varTemp = Dir
    Wend
    Zähler = Zähler + 1
Wend

Nur_Hauptordner:
For Zähler = 0 To UBound(Ordner)
    varTemp = Dir(Ordner(Zähler) & "\*." & Datentyp)
    While varTemp <> ""
        ReDim Preserve Datei(UBound(Datei) + 1)
        Datei(UBound(Datei)) = Ordner(Zähler) & "\" & varTemp
        varTemp = Dir
    Wend
Next
End Function