Office: Dateiname auch in Unterordner auslesen

Hi,
Ich hab eine Sub gebaut in der man das Verzeichnis via VBA wählt und im Anschluss sämtliche enthaltene Dateien ausgibt. Funktioniert soweit so gut.
Ich würde allerdings auch gerne alle Dateien in Subfolders und deren Subfolders mitausgeben.
Kann mir dabei jemand helfen?

mfg
Markus


Sub test()

Dim strOrdner As String
Dim objFSO As Object
Dim objDatei As Object
Dim objOrdner As Object

On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemObject")

With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
strOrdner = .SelectedItems(1) & "\"
End If
End With

Set objOrdner = objFSO.Getfolder(strOrdner)

For Each objDatei In objOrdner.Files
If LCase(objFSO.GetExtensionName(objDatei)) = "cef" Then
Debug.Print objDatei
End If
Next
End Sub

:)

 

http://hajo-excel.de/chCounter3/getfile.php?id=21

 

Danke! hat mir geholfen!