Новости:

Из правил форума: Тема должна отражать суть вопроса, топики типа "help please" будут удаляться!

Главное меню

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

Автор Leanna, 28.12.2011, 09:19

« назад - далее »

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

#2
А так?
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 будут только файлы  ;)
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.