Отримання списку підпапок із заданої папки, Макроси Excel

Даний макрос дозволяє отримати список папок, розташованих у вибраній папці (каталозі)

Якщо потрібно отримати список папок, імена яких задовольняють певний критерій, використовуйте маску пошуку (параметрMask $)

Код функції та приклад використання:

У цьому прикладі та сама функція використовується для виведенняназв підпапокна лист Excel :

отримання

Код трохи змінено:

Розширена версія функції - для пошуку підпапок будь-якого рівня вкладеності:

Коментарі

Вітаю! Не могли б ви підказати, я використовую GetFolder для зазначеного шляху, хочу отримати об'єкт із вкладеними папками, але їх близько 600. У результаті у мене виходить об'єкт у якому на лічильнику вказано Count = 600 , а самих item-ів рівно 256 Лістинг приблизно такий: Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(Шлях) Set fc = f.SubFolders

Привіт Так, можу Оформляйте замовлення на сайті, зробимо

Доброго дня, а ви можете додати у функцію FoldersCollection перевірку в папках для знайдених документів наявність у них картинок

Рінате, у статті є готове рішення: функція FoldersCollection

Добрий день всім! Підкажіть, будь ласка, як в даний фрагмент коду вставити або як його змінити, щоб він шукав файли не тільки в папці з робочою книгою, а й у підпапках Path = ThisWorkbook.Path f = Dir(Path + "\\*_2015.xls") Заздалегідь дякую! Do While f <> "" If Len(f) < 50 Then

Дякую! Питання а як змінити код щоб виводилися всі підпапки з потрібної папки?

Все працює. Велике спасибі!! Ви мене врятували вже вдруге.

Виводити які шляхи?До папок чи файлів? В якому вигляді?

Що означає фраза "загальна папка всіх підпапок"? Я не розумію про що мова.

Добрий день. А якщо хочеться, щоб виводив шляхи із спільної папки всіх підпапок?