Sub DominikMacros1
UserForm1.Show
End Sub

Sub DominikGetFilesAndDirsList()
'Выдаем список всех папок и файлов, кот-е находятся в папке C:\DownLoads\ на активный лист
'В каждой строке листа - название папки или файла
Cells.Clear
folderlist ("C:\DownLoads\")
End Sub

' Получение списка файлов для заданной папки
Function ShowFileList(folderspec)
 Dim fso, fld, f1, fc, s
  Set fso = CreateObject("Scripting.FileSystemObject")
 Set fld = fso.GetFolder(folderspec)
 Set fc = fld.Files
  Dim Row As Long
  Row = Range("A1").CurrentRegion.Rows.Count
  For Each f1 In fc
  Row = Row +  1 
        Cells(Row,  1 ) = f1.Name
    Next
' ShowFileList = s
  
End Function

'Делаем все дела
Sub folderlist(folderspec)
' Опять застараховываем себя
' от непредвиденных ошибок
On Error Resume Next
' Объявляем переменные
Dim f, f1, sf
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
' Получаем объект Folder
Set f = fso.GetFolder(folderspec)
    Dim Row As Long
Row = Range("A1").CurrentRegion.Rows.Count +  1 
MsgBox f.Path
Cells(Row,  2 ) = f.Path
    ShowFileList (f.Path)
' Получаем объект SubFolders
Set sf = f.SubFolders
' И наконец, организуя цикл,
'просматриваем папки
For Each f1 In sf
    ShowFileList (f1.Path)
' Как только находим первую папку,
' то сразу ее открываем, т.е. опять входим
' в подпрограмму и так до тех пор,
' пока не будет просмотренны все вложенные папки
' первой найденной....и так со всеми папками

folderlist (f1.Path)
Next
End Sub

' Display the names in C:\ that represent directories.
MyPath = "c:\"    ' Set the path.
MyName = Dir(MyPath, vbDirectory)    ' Retrieve the first entry.
Do While MyName <> ""    ' Start the loop.
    ' Ignore the current directory and the encompassing directory.
    If MyName <> "." And MyName <> ".." Then
        ' Use bitwise comparison to make sure MyName is a directory.
        If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
            Debug.Print MyName    ' Display entry only if it
        End If    ' it represents a directory.
    End If
    MyName = Dir    ' Get next entry.
Loop