Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

18th
Окт

Создать список папок и вложенных в них файлов из выбранной директории

Posted by Chas under Basic, Пост-обзор

Ципихович Эндрю
Рекурсия — файлов поиск в папке и подпапках

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