Option Explicit

Dim ObjFileSystemObject As Object
Dim objAnzDateien               As Object
Dim objDurchläufe               As Object
Dim objDateityp                 As Object

Const strPath As String = "H:\"
Const strNameAuswertdatei As String = "Auswertung.txt"

Sub Main()
'Auswertdatei löschen
On Error Resume Next
Kill strPath & strNameAuswertdatei
On Error GoTo 0
'Verweise zuweisen
Set ObjFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set objAnzDateien = ObjFileSystemObject.getfolder(strPath)
'Makro starten
Call Auslesen
End Sub

Sub Auslesen()
On Error Resume Next
'Pfad auslesen
For Each objDateityp In objAnzDateien.Files
    If Right(objDateityp.Name, 4) = ".txt" Then
        Open strPath & strNameAuswertdatei For Append As #1
            Print #1, objDateityp.Path
        Close
    End If
Next

For Each objDurchläufe In objAnzDateien.subfolders
   Set objAnzDateien = objDurchläufe
   Auslesen
Next objDurchläufe
On Error GoTo 0
End Sub