Ordnerstruktur in Excel anzeigen

Private strList() As String
Private DicPuffer As String
Private lngCount As Long
Private VerzeichnisTiefe As Integer
Private VerzeichnisIndex As Integer

Public Sub Einlesen()
	lngCount = 0
	DicPuffer = Range("O4").Value ´--> hier steht im Excel das Verzeichnis  
	VerzeichnisTiefe = 2
	VerzeichnisIndex = 2                  '--> hier die Anzahl der Ebenen  
	SearchFiles DicPuffer, "*.*"  

	If lngCount = 0 Then
		MsgBox "No file found"  
	Exit Sub

	End If
	With ThisWorkbook.Worksheets(1)
		.Cells.Clear
		.Range(.Cells(1, 1), Cells(lngCount, 1)) = _
		WorksheetFunction.Transpose(strList)
	End With
End Sub

Private Sub SearchFiles(strFolder As String, strFileName As String)
Dim objFolder As Object
Dim objFile As Object
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")  
	For Each objFile In objFSO.GetFolder(strFolder).Files
		If objFile.Name Like strFileName Then
			ReDim Preserve strList(lngCount)
			strList(lngCount) = objFile.Name
			lngCount = lngCount + 1
		End If
	Next
	For Each objFolder In objFSO.GetFolder(strFolder).Subfolders
		If strFolder <> DicPuffer Then
			If VerzeichnisTiefe = 2 Then Exit For
			VerzeichnisTiefe = VerzeichnisTiefe + 1
		End If
		If VerzeichnisTiefe = VerzeichnisIndex Then
	Exit For
	Else
		SearchFiles strFolder & "\" & objFolder.Name, strFileName  
		DicPuffer = strFolder
	End If
Next
End Sub