Создать список файлов

[Molotoklk]

Доброго времени суток!
Прошу прощения, если моя тема изъезжена и затерта до дыр.
Есть задача создать список папок и вложенных в них файлов из выбранной директории. Подскажите, как это можно сделать?

[Казанский]

> Прошу прощения, если моя тема изъезжена и затерта до дыр.

Именно так. Погуглите по "список файлов".

[Ципихович Эндрю]

Рекурсия - файлов поиск в папке и подпапках

Sub Main()
'Выбор папки, в которой нужно просмотреть все
'файлы Excel, которые также содержатся и в подпапках.
Dim Папка As String
With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Выберите папку"
    .ButtonName = "OK"
    .AllowMultiSelect = False
    If .Show = -1 Then
        Call P1(.SelectedItems(1) & "\")
    End If
End With
End Sub

Sub P1(Путь As String)
Dim MyName As String, DirList() As String
Dim i As Long, j As Long
Dim Флаг As Boolean
MyName = Dir(Путь, vbDirectory)
Do While MyName <> ""
    If MyName <> "." And MyName <> ".." Then
        'Запись в массив всех папок в текущей папке.
        'Затем будем кажду папку просматривать.
        If GetAttr(Путь & MyName) = vbDirectory Then
            i = i + 1
            ReDim Preserve DirList(1 To i)
            DirList(i) = Путь & MyName & "\"
            Debug.Print DirList(i)
            Флаг = True
        'Если это не папка, то смотрим, что за формат файла.
        'Если нужный, то произведём действия.
ElseIf MyName Like "*.xls" Or MyName Like "*.xlsx" Or MyName Like "*.xlsm" Then
            Debug.Print Путь & MyName
        End If
    End If
    MyName = Dir
Loop
If Флаг = True Then
    'Просмотр вложенных папок.
    For j = 1 To UBound(DirList) Step 1
        Call P1(DirList(j))
    Next j
End If
End Sub

[Molotoklk]

Спасибо большое) Подскажите это отдельная функция или она вставляется в какой-то модуль?

[Ципихович Эндрю]

как душе угодно