Столкнулся со следующей проблемой: У меня есть путь до определенной папки. В этой папке есть еще папки, названия которых я не знаю. Как мне вернуть название подкаталога для того, чтобы открыть его?
Буду признателен!
Добрый день!
Столкнулся со следующей проблемой: У меня есть путь до определенной папки. В этой папке есть еще папки, названия которых я не знаю. Как мне вернуть название подкаталога для того, чтобы открыть его?
Manyasha, _Boroda_, Спасибо, друзья. Опять не воспользовался поиском по готовыми решениям. Гореть мне в аду. :( [moder]Зато 100 сообщений напостил.
Manyasha, _Boroda_, Спасибо, друзья. Опять не воспользовался поиском по готовыми решениям. Гореть мне в аду. :( [moder]Зато 100 сообщений напостил.akobir
e-mail: akobir.ismailov@gmail.com
Сообщение отредактировал _Boroda_ - Среда, 20.01.2016, 11:04
Sub СписокПапок() iPath = "D:\" 'Range("E2") With CreateObject("Shell.Application") Dim iFolder As Object, iFolderItem As Object Set iFolder = .Namespace(iPath) If Not iFolder Is Nothing Then I = 3 For Each iFolderItem In iFolder.Items If iFolderItem.IsFolder = True Then 'Заменив True на False будут только файлы I = I + 1 Range("C" & I) = iFolderItem.Name End If Next Else MsgBox "Указанная папка изволит отсутствовать", , "" End If End With End Sub
[/vba]
Ну и готовый код [vba]
Код
Sub СписокПапок() iPath = "D:\" 'Range("E2") With CreateObject("Shell.Application") Dim iFolder As Object, iFolderItem As Object Set iFolder = .Namespace(iPath) If Not iFolder Is Nothing Then I = 3 For Each iFolderItem In iFolder.Items If iFolderItem.IsFolder = True Then 'Заменив True на False будут только файлы I = I + 1 Range("C" & I) = iFolderItem.Name End If Next Else MsgBox "Указанная папка изволит отсутствовать", , "" End If End With End Sub
_Boroda_, Благодаря всему форуму, помимо того, что напостил 100 сообщений, набрался огромного опыта и даже успел немного помочь другим. :)[moder]Я ж нисколько не в обиду Вам, а наоборот - типа поздравляю[/moder] Wasilic, Огромное спасибо, но как я понял, это поиск определенной папки. А я названия папки не знаю и как раз его и хочу узнать.
_Boroda_, Благодаря всему форуму, помимо того, что напостил 100 сообщений, набрался огромного опыта и даже успел немного помочь другим. :)[moder]Я ж нисколько не в обиду Вам, а наоборот - типа поздравляю[/moder] Wasilic, Огромное спасибо, но как я понял, это поиск определенной папки. А я названия папки не знаю и как раз его и хочу узнать.akobir
e-mail: akobir.ismailov@gmail.com
Сообщение отредактировал _Boroda_ - Среда, 20.01.2016, 11:34
Не определенной, а всех, которые лежат там, где указано в iPath = "D:\" или в iPath = "D:\ПАПКА\" или в iPath = "D:\ПАПКА\ПАПКА\" и там будет осуществляться поиск вложенных папок.
Не определенной, а всех, которые лежат там, где указано в iPath = "D:\" или в iPath = "D:\ПАПКА\" или в iPath = "D:\ПАПКА\ПАПКА\" и там будет осуществляться поиск вложенных папок.Wasilich