Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Как получить перечень папок

Автор: serezetdin 18.5.2006, 14:04

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

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

Автор: Akina 18.5.2006, 15:15

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

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

Автор: ~FoX~ 18.5.2006, 16:19

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

Автор: amt 20.5.2006, 21:12

Попробуй это

Код


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