폴더 밑 하위 폴더 전체 이름을 반환하고 싶어요 도와주세요

일단 어찌해서 해당 코드를 찾았는데 하위폴더 이름만 반환합니다

아무리 고쳐봐도 하위폴더 밑에 하위폴더 이름 그리고 그 밑에 하위폴더 이름까지 필요한데

그건 어떻게 수정해야 할까요?

도와주세요

Sub GetFolderName()

Dim FSO As FileSystemObject
Dim Findpath As Folder, FindFolder As Folder
Dim i As Integer
Dim SubFName As Folder
Dim SubFPath As Folder

Set FSO = New FileSystemObject

Set Findpath = FSO.GetFolder("\\172.30.145.143\evr data\2020-11")

For Each FindFolder In Findpath.SubFolders
i = i + 1

Cells(i, 2).Value = FindFolder.name

Next FindFolder

End Sub