Получить список всех поддиректорий в указанном каталоге

@Гафаров И. С. · Регистрация: 01.09.2012

Студворк — интернет-сервис помощи студентам

Помогите создать список подпапок в текущей папке. Мой код не помогает

Visual Basic
1
2
3
Dim a
a = Dir(CurDir, vbDirectory)
MsgBox a

Комментарий модератора

Код следует не раскрашивать, а выделять тегом ([VB] в нашем случае)

Выдаёт в ответ текущую папку, а мне нужны подпапки. Что делать?
Заранее спасибо!

@iv_roman_vl · 13.03.2014, 13:51

А как узнать существут ли папка, например: "D:\x"

@Апострофф · 13.03.2014, 14:02

Visual Basic
1
2
3
4
D = Dir("D:\x", vbDirectory)
if D <> "" then
  If GetAttr("D:\x") And vbDirectory Then msgbox "существует"
endif

@iv_roman_vl · 13.03.2014, 14:06

....и ещё вопросик , как открыть эту папку?

@Апострофф · 13.03.2014, 14:08

Сообщение от iv_roman_vl

открыть эту папку

Что имеется ввиду?

@iv_roman_vl · 13.03.2014, 14:12

ну то есть, я нашел эту папку....и мне надо её открыть(ну виндовсое окно открылось с содержимом этой папки)

.............разобрался
Как из Excel открыть папку с файлами Word

@mc-black · 14.03.2014, 08:04

Что-то не увидел примера рекурсии без FSO, одним Dir. Лень писать руками, завтра сделаю копипаст. Вкратце: перебор в цикле каталога, формирование массива подпапок каталога в этом цикле, после прохода папки цикл do while по массиву с рекурсивным вызовом. По другому без массива или строки-списка подпапок не получается, так как Dir при вызове изменяет Current Dir и сбивает нормальный обход в рекурсии.

Добавлено через 7 часов 1 минуту
Рекурсия с Dir. Обход папок и просмотр файлов.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Explicit
 
Sub Test()
    Call Get_DirS("D:\test\")
End Sub
 
Private Sub Get_DirS(path As String)
    Dim a() As String, D As String, U As Long, i As Long, ps As String
    
    ' Вывод каталогов
    Debug.Print path
    
    ps = Application.PathSeparator
    D = Dir(path, vbNormal Or vbDirectory)
    U = 0
    Do While D <> ""
        If GetAttr(path & D) And vbDirectory Then
            If D <> "." And D <> ".." Then
                ReDim Preserve a(U)
                a(U) = D
                U = U + 1
            End If
        Else
            ' Вывод файлов
            ' Debug.Print path & D
        End If
        D = Dir
    Loop
    
    i = 0
    Do While i < U
        Call Get_DirS(path & a(i) & ps) ' Рекурсия
        i = i + 1
    Loop
End Sub

@Апострофф · 14.03.2014, 08:47

Сообщение от mc-black

Что-то не увидел примера рекурсии без FSO, одним Dir

Вот же он:)

@mc-black · 14.03.2014, 10:14

Сообщение от Апострофф

Вот же он

Точно. У Catstail стек организован программный, у меня стек вызовов - системный с динамическими массивами внутри кадров стека.

Новые блоги и статьи Все статьи Все блоги /
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .

@iv_roman_vl 0 / 0 / 0 Регистрация: 14.06.2010 Сообщений: 66
	13.03.2014, 13:51
	А как узнать существут ли папка, например: "D:\x" 0

@iv_roman_vl 0 / 0 / 0 Регистрация: 14.06.2010 Сообщений: 66
	13.03.2014, 14:06
	....и ещё вопросик , как открыть эту папку? 0

@iv_roman_vl 0 / 0 / 0 Регистрация: 14.06.2010 Сообщений: 66
	13.03.2014, 14:12
	ну то есть, я нашел эту папку....и мне надо её открыть(ну виндовсое окно открылось с содержимом этой папки) .............разобрался Как из Excel открыть папку с файлами Word 0