DIR Insane -(

[LexBondAgent007]

Привет всем! У меня ужасная головная боль по поводу...
Вобщем хотел воспользоваться объектом DIR (просмотр директорий) и столкнулся с проблемой...
Нужно чтобы ДИР отображал только ПАПКИ в заданному ему PATH.
И в тоже время их и не раскрывал... Но суть заключается в слудующим: просто мне нужно создать ЛИСТ выбора... А условия этого выбора - это название папок в заданном пути... Понимаю что сразу не понять поэтому привожу пример:
В директории app.path \ EXAMPLE находиться 3 папки: APPLE, PEACH и BERRY. В вижуал бэйсике нужно, чтобы пользователь выбрал одну из этих папок в ЛИСТБОКСЕ!!! Допустим подсвечивает APPLE ну и далее данные постовляются из этой папки... И ГЛАВНОЕ ЧТОБЫ ПОЛЬЗОВАТЕЛЮ НЕ ОТОБРАЖАЛОСЬ СОДЕРЖИМОЕ ЭТИХ ПАПОК и ПУТЬ К ЭТОЙ ПАПКЕ... Хэлп в общем...

[d3drm]

чем тебе filelistbox не угодил?

[SHURUP]

d3drm, если я правильно понял ему нужно отобразить не файлы, а папки.
В таком случае - самый простой вариант: ListBox в который изначально закидываются все названия подпапок 1-го уровня заданого пути. (например через Dir$)

[LexBondAgent007]

Урф...! А применчик то можно, плиз, как это сделать?

[SHURUP]

Например вот так:

Код: Выделить всё

Private Sub Form_Load()
Dim strFileList As String, _
    strFolder As String
strFolder = App.Path
If Right$(strFolder, 1) <> "\" Then strFolder = strFolder & "\"
strFolder = strFolder & "EXAMPLE\*."

strFileList = Dir(strFolder, vbDirectory)
Do Until strFileList = vbNullString
    If Left(strFileList, 1) <> "." Then List1.AddItem strFileList
    strFileList = Dir
Loop
End Sub

[LexBondAgent007]

o.O Не понял как ты цикл использовал, если честно...... НО РАБОТАЕТ! SHURUP, пасиб!

[SHURUP]

o.O Не понял как ты цикл использовал, если честно...... НО РАБОТАЕТ! .....

C циклом всё просто. По крайней мере я понимаю так:
Когда вызываешь DIR с параметром path - то функция возвращает первый объект (файл/папку) который удовлетворяет маске и атрибуту.
А когда потом вызываешь DIR без параметров - он возвращает следующий объект, если он есть. На этом и построен цикл (пока что-то возвращается - проверять дальше).
Вот только не могу понять, почему при атрибуте vbDirectory - все-равно в список попадают файлы?

PS: Могут возникнуть непредвиденные обстоятельства, если в папке EXAMPLE будут папки содержащие точку или файлы без разширения.

[BV]

2 SHURUP

http://bbs.vbstreets.ru/viewtopic.php?t=17698&start=3

Какая интересная схожесть кода

[SHURUP]

2BV , . Заметили.
Хотел как свой собственный толкнуть, а теперь прийдеться авторством делиться (точнее совсем его отдать...).

[BV]

Мне ли собственный код не узнать

Код: Выделить всё

Option Explicit

Private Sub Form_Load()
    Dim strFolderList As String
    Dim strFolder As String
    strFolder = Environ("WinDir")
    If Right$(strFolder, 1) <> "\" Then strFolder = strFolder & "\"
    strFolderList = Dir(strFolder, vbDirectory)
    Do Until strFolderList = vbNullString
        If strFolderList = "." Or strFolderList = ".." Then GoTo NextStep
        If GetAttr(strFolder & strFolderList) = vbDirectory Then
            Debug.Print strFolderList
            Debug.Print strFolder & strFolderList & vbCrLf
        End If
NextStep:
        strFolderList = Dir
    Loop
End Sub