Dateinamen aus Ordner und SubOrdner in Excel

Function OrdnerDateienAuslesen(ByVal strOrdner As String)
Dim fso As Object
Dim objFld As Object
Dim SubFld As Object
Dim fld, file
Dim rs As DAO.Recordset
Dim db As DAO.Database
'Recordset referenzieren
Set db = CurrentDb
Set rs = db.OpenRecordset("Dateipfad", dbOpenDynaset)
'File-System-Object, Startordner, Unterordner referenzieren
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFld = fso.GetFolder(strOrdner)
Set objSubFld = objFld.SubFolders
For Each fld In objSubFld
Set objFiles = fld.Files
For Each file In objFiles
rs.AddNew
'Neuen Pfad speichern
rs!dateiPfad = fld.Path
'Dateiname speichern
rs!Dateiname = file.Name
rs.Update
Next file
'Rekursiver Aufruf
OrdnerDateienAuslesen fld
Next fld
'Objektreferenzen zerstören
Set db = Nothing
rs.Close
Set fso = Nothing
Set objFld = Nothing
End Function