DirListBox

[Stable]

Как сделать, чтоб DirListBox показывал только определенную папку диска. Допустим С:windows. [/quote]

[Wolfie]

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

dir1.path

Или речь идет об исключении всего кроме этой папки?

[Stable]

Да, исключить все кроме этой папки.

[Wolfie]

Вот это работает, хотя и не очень красиво

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

Private Sub Dir1_Change()
    If UCase(Dir1.List(-1)) = "C:\" Then
        Dir1.Path = "C:\windows"
    End If
End Sub

Private Sub Form_Load()
    Dir1.Path = "C:\windows"
End Sub

[Stable]

а можно как нибудь сделать, чтоб небыло видно других папок, только папка windows была видна.

[Debugger]

Пиши свой контрол или ищи другие. Статей премного.

[dr.MIG]

а можно как нибудь сделать, чтоб небыло видно других папок, только папка windows была видна.

А для чего тогда вообще нужен DirListBox, если не секрет?

[Stable]

как сделать, чтоб он из папки windows вообще невыходил?Работал только в ней.

[dr.MIG]

Типа так что ли?

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

Private Sub Dir1_Change()
    If UCase(Dir1.Path) <> "C:\WINDOWS" Then
        Dir1.Path = "C:\windows"
    End If
End Sub

Private Sub Form_Load()
    Dir1.Path = "C:\windows"
End Sub

[VERITAS]

а можно как нибудь сделать, чтоб небыло видно других папок, только папка windows была видна.

Через DirListBox - нет.
Ищи в поисковиках "Browse for Folder" или

Пиши свой контрол или ищи другие. Статей премного.

использовать нужно API функцию

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

SHBrowseForFolder

[dr.MIG]

SHBrowseForFolder с единственным параметром - указателем на структуру BROWSEINFO откроет стандартное диалоговое окно "Обзор папок"... не припомню, что б в состав структуры входили параметры, позволяющие отображать только одну папку...

[Andrey Fedorov]

а можно как нибудь сделать, чтоб небыло видно других папок, только папка windows была видна.

А для чего тогда вообще нужен DirListBox, если не секрет?

Если честно - этот контрол нужен для полных чайников

Возьми обыкновенный ListBox и заполни его самостоятельно.

А по нормальному - есть SHBrowseForFolder (не ошибся в названии?).
С ней можно многое сделать...

[VERITAS]

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

Private Declare Function SHBrowseForFolder Lib "shell32.dll" (lpbi As BrowseInfo) As Long

В качестве параметра в функцию нада передать структуру

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

Private Type BrowseInfo
    hWndOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type

Где pidlRoot это уникальный индификатор директории, который мы можем получить с помощью

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

SHSimpleIDListFromPath Lib "shell32.dll" Alias "#162" (ByVal szPath As String) As Long

У меня был пример требуемой автором поста задачи, как найду выложу, а пока можно посмотреть примеры с "планеты":
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=49326&lngWId=1
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=56598&lngWId=1

[Stable]

dr.MIG
Типа того, но чтоб и с подпапками работал, папки windows.