VPF::Как получить перечень папок - Форум программистов

serezetdin

Дата 18.5.2006, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 16.2.2006

Репутация: нет
Всего: нет

Нужно программно получить список папок, расположенных внутри произвольного каталога.
Как по аналогии с функцией Dir$ (app.path & "\*.*") для файлов.

заранее спасибо

Akina

Дата 18.5.2006, 15:15 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

А надо просто внимательно почитать справку по функции. Она и каталоги умеет отдавать, а не только файлы.

Или пользуй FSO. Или хотя бы поиск по форуму.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

~FoX~

Дата 18.5.2006, 16:19 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68

Забыли все про старенькие: FindFirst, FindNext, FindClose smile

Это сообщение отредактировал(а) ~FoX~ - 18.5.2006, 16:20

--------------------

…множественность никогда не следует полагать без необходимости…

amt

Дата 20.5.2006, 21:12 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3

Попробуй это

Код


Sub FindFold()
ss = Dir("C:\Program Files\*.*", vbDirectory)
1    If ss = "" Then
        Exit Sub
        Else
        If ss = "." Or ss = ".." Then GoTo 2
        MsgBox ss
2       ss = Dir
        GoTo 1
        End If
End Sub

--------------------

С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »