Option Explicit

Private Sub btnSrart_Click()
    Call FileList
End Sub

'Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'    If CloseMode = 0 Then Cancel = True
'End Sub
Sub FileList()
    Dim V As String, BrowseFolder As String
    Application.ScreenUpdating = False
    'открываем диалоговое окно выбора папки
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Выберите папку или диск"
        .ButtonName = "Выбрать"
        If .Show = 0 Then
            Unload Me
            Exit Sub
        Else
            V = .SelectedItems(1)
        End If
    End With
    BrowseFolder = CStr(V) 'добавляем лист и выводим на него шапку таблицы
    'ActiveWorkbook.Sheets.Add
    Cells.Clear
    With Range("A1:E1")
        .Font.Bold = True
        .Font.Size = 12
    End With
    Range("A1").Value = "Имя файла"
    If CheckBoxFilePath Then Range("B1").Value = "Путь"
    If CheckBoxFileSize Then Range("C1").Value = "Размер"
    If CheckBoxDateCreated Then Range("D1").Value = "Дата создания"
    If CheckBoxDateChange Then Range("E1").Value = "Дата изменения"
    'вызываем процедуру вывода списка файлов
    'измените True на False, если не нужно выводить файлы из вложенных папок
    Call ListFilesInFolder(BrowseFolder, CheckBoxSubFolders.Value)
    If CheckBoxFilePath.Value = False Then Columns("B").Delete
    If CheckBoxFileSize.Value = False Then Columns("C").Delete
    If CheckBoxDateCreated.Value = False Then Columns("D").Delete
    If CheckBoxDateChange.Value = False Then Columns("E").Delete
    Unload Me
End Sub
Private Sub ListFilesInFolder(ByVal SourceFolderName As String, ByVal IncludeSubfolders As Boolean)
    Dim FSO As Object, SourceFolder As Object, SubFolder As Object, FileItem As Object, r As Long
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = FSO.getfolder(SourceFolderName)
    r = Cells(Rows.Count, 1).End(xlUp).Row + 1
    'находим первую пустую строку
    'выводим данные по файлу
    For Each FileItem In SourceFolder.Files
        Cells(r, 1).Formula = FileItem.Name
        If CheckBoxFilePath Then Cells(r, 2).Formula = FileItem.Path
        If CheckBoxFileSize Then Cells(r, 3).Formula = FileItem.Size
        If CheckBoxDateCreated Then Cells(r, 4).Formula = FileItem.DateCreated
        If CheckBoxDateChange Then Cells(r, 5).Formula = FileItem.DateLastModified
        If CheckBoxHiperLinkAdd Then HyperlinksAdd1 Cells(r, 1), FileItem.Path, Cells(r, 1).Text
        r = r + 1
'        X = SourceFolder.Path
    Next FileItem
    'вызываем процедуру повторно для каждой вложенной папки
    If IncludeSubfolders Then
        For Each SubFolder In SourceFolder.SubFolders
        ListFilesInFolder SubFolder.Path, True
        Next SubFolder
    End If
    Columns("A:E").AutoFit
    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing
End Sub

Sub HyperlinksAdd1(rAnchor As Range, sAddress As String, sTextToDisplay As String)
    ActiveSheet.Hyperlinks.Add Anchor:=rAnchor, Address:=sAddress, TextToDisplay:=sTextToDisplay, ScreenTip:="Перейти к файлу"
End Sub