Доброе утро, участники форума. Подскажите решение.
У меня есть макрос, выводящий на лист - список файлов, находящихся в выбранной папке. Как заставить макрос - выводить не АДРЕСА всех файлов в каталоге, а НАЗВАНИЯ папок, лежащих в целевом каталоге ? (без учета подпапок)
Доброе утро, участники форума. Подскажите решение.
У меня есть макрос, выводящий на лист - список файлов, находящихся в выбранной папке. Как заставить макрос - выводить не АДРЕСА всех файлов в каталоге, а НАЗВАНИЯ папок, лежащих в целевом каталоге ? (без учета подпапок)rotten41
Sub FileFolderList() iPath = "D:\" With CreateObject("Shell.Application") Dim iFolder As Object, iFolderItem As Object Set iFolder = .Namespace(iPath) If Not iFolder Is Nothing Then For Each iFolderItem In iFolder.Items If iFolderItem.IsFolder = True Then i = i + 1 Range("A" & i) = iFolderItem.Name End If Next Else MsgBox "Указанная папка изволит отсутствовать", , "" End If End With End Sub
[/vba]Если True заменить на False, будут файлы.
Может пригодится. [vba]
Код
Sub FileFolderList() iPath = "D:\" With CreateObject("Shell.Application") Dim iFolder As Object, iFolderItem As Object Set iFolder = .Namespace(iPath) If Not iFolder Is Nothing Then For Each iFolderItem In iFolder.Items If iFolderItem.IsFolder = True Then i = i + 1 Range("A" & i) = iFolderItem.Name End If Next Else MsgBox "Указанная папка изволит отсутствовать", , "" End If End With End Sub
[/vba]Если True заменить на False, будут файлы.Wasilich
Добрый день! Очень заинтересовала ваша работа. А может у вас есть продолжение данной работы? Мне нужно, чтобы можно было не только открыть найденные файлы, но и открыть папку, где данный файл находится. (Я создаю базу чертежей в формате *.pdf и нужна именно программа которая бы выводила список папок и файлов, сортировала по условию и открывала папку где находится файл.)
Добрый день! Очень заинтересовала ваша работа. А может у вас есть продолжение данной работы? Мне нужно, чтобы можно было не только открыть найденные файлы, но и открыть папку, где данный файл находится. (Я создаю базу чертежей в формате *.pdf и нужна именно программа которая бы выводила список папок и файлов, сортировала по условию и открывала папку где находится файл.)7ionov
Сообщение отредактировал 7ionov - Пятница, 08.05.2020, 09:08
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
