Dim FSO As Object
Dim List As String
Sub All_Files_in_SubFolders()
Pfad = "C:\temp"
Set FSO = CreateObject("Scripting.FileSystemObject")
Call DoFolder(FSO.GetFolder(Pfad), "txt")
Debug.Print List
End Sub
Function DoFolder(Folder, ByVal Ext As String)
For Each Fld In Folder.SubFolders
Call DoFolder(Fld, Ext)
Next
Dim File
For Each File In Folder.Files
If FSO.getExtensionName(File) = Ext Then
List = List & vbCrLf & File.Path
End If
Next
End Function