Составление списка файлов и папок.

[Leanna]

Для решения нужно следующее:

1.   Составить массив из названий файлов в папке Х
2.   Составить массив из имеющихся папок в папке Х
3.   Составить массив из открытых в данный момент документов

Помогите пожалуйста с программными кодами к задачке.

[Leanna]

У меня получилось найти код, который может строить список. Он выдает содержимое папки.
Но как отфильтровать только список папок? отдельно как отфильтровать только список файлов?

Код Выделить Развернуть

Sub FileFolderList()
iPath = "N:\Личные папки пользователей\mirone\ПЛАН\"
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
        i = i + 1
        Range("A" & i) = iFolderItem
        Next
     Else
        MsgBox "Указанная папка изволит отсутствовать", , ""
     End If
End With
End Sub

[Wasilic]

А так?

Код Выделить Развернуть

Sub FileFolderList()
iPath = "N:\Личные папки пользователей\mirone\ПЛАН\"
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
PS  Заменив True  на False будут только файлы