Dim a() As StringPublic Sub Dir2Arr()    Dim i As Long    i = -1    \' Возвращает список каталогов на диске C:.    MyPath = "c:\\"  \' Указывает путь.    MyName = Dir(MyPath, vbDirectory)   \' Возвращает первый элемент.    Do While MyName <> ""   \' Начинает цикл.        \' Игнорирует текущий каталог и каталог предыдущего уровня.        If MyName <> "." And MyName <> ".." Then            \' Использует поразрядное сравнение для проверки того,            \' является ли MyName каталогом.            If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then                i = i + 1                ReDim Preserve a(0 To i) As String                a(i) = MyName       \' Выводит элемент только в том            End If                  \' случае, если это каталог.        End If        MyName = Dir    \' Возвращает следующий элемент.    Loop    \'проверочка    For j = 0 To i - 1        Debug.Print a(j)    NextEnd Sub