Sub FileList()
    Dim V As String
    Dim BrowseFolder As String
     
    'îòêðûâàåì äèàëîãîâîå îêíî âûáîðà ïàïêè
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Âûáåðèòå ïàïêó èëè äèñê"
        .Show
        On Error Resume Next
        Err.Clear
        V = .SelectedItems(1)
        If Err.Number <> 0 Then
            MsgBox "Âû íè÷åãî íå âûáðàëè!"
            Exit Sub
        End If
    End With
    BrowseFolder = CStr(V)
     
    'äîáàâëÿåì ëèñò è âûâîäèì íà íåãî øàïêó òàáëèöû
    ActiveWorkbook.Sheets.Add
    With Range("A1:E1")
        .Font.Bold = True
        .Font.Size = 12
    End With
    Range("A1").Value = "Èìÿ ôàéëà"
    Range("B1").Value = "Ïóòü"
    Range("C1").Value = "Ðàçìåð"
    Range("D1").Value = "Äàòà ñîçäàíèÿ"
    Range("E1").Value = "Äàòà èçìåíåíèÿ"
     
    'âûçûâàåì ïðîöåäóðó âûâîäà ñïèñêà ôàéëîâ
    'èçìåíèòå True íà False, åñëè íå íóæíî âûâîäèòü ôàéëû èç âëîæåííûõ ïàïîê
    ListFilesInFolder BrowseFolder, True
End Sub