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

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

Форум программистов > VB6 > Сетевое окружение в DirListBox

Автор: amt 21.11.2004, 17:55

Кто знает - подскажите.
Как заставить DirListBox отображать содержимое папки Сетевое окружение.
Если это невозможно. то чем тогда пользоваться.
Заранее благодарен.

Автор: amt 8.12.2004, 15:53

Хочется повторить вопрос, а то никто не читает и не отвечает.

Автор: Naghual 8.12.2004, 15:57

Ты хочеш увидеть в ней компьютеры своей рабочей группы или что-то еще?
На разных версиях Виндов - разные исполнения этой папки!

Автор: amt 8.12.2004, 16:08

У меня Win98.
Нужно видеть компы своей группы, но лучше, чтобы всей сети.

Автор: Akina 8.12.2004, 16:08

А с какого перепугу он должен его отображать? он отображает каталоги, а сетевое окружение - не каталог. Вот у ресурса удаленного компьютера - сколь тебе надо и любой разумной вложенности... или попробуй использовать CommonDialog

Автор: amt 8.12.2004, 16:14

Я понял, что Сетевое Окружение не каталог, поэтому и задаю вопрос.
Мне нужно чтобы объект возвращал сетевое имя компа. Естль, ли такой CommonDialog?
Если речь про Open, то он возвращает имя выделенного файла.

Автор: Naghual 8.12.2004, 16:14

Да уж. Именно ДирЛист никак не получится.
А вот, в зависимости от реализации, можно приспособить либо ЛистБокс либо просто пользовать BrowseForFolder

Автор: amt 8.12.2004, 16:17

Naghual
А что это за объект

Цитата

BrowseForFolder

и как его подключить и использовать.

Я знаю точно, что Сетевое окружение можно просматривакть. Например у Касперского при добавлении папки Открывается окно Обзор папок ну очень похожее на DirListBox и там есть Сет Окруж.

Автор: Naghual 8.12.2004, 16:34

А это такая специальная АПИ функция. Специально для выбора того или иного контейнера/каталога

Автор: Naghual 8.12.2004, 16:45

http://www.codeguru.com/vb/controls/vb_shell/article.php/c3051/

Автор: amt 8.12.2004, 17:35

Naghual
Спасибо за ссылку. Почти работает.
Токма в окне отображаются рабочие группы, и их компы нет.
Видимо надо где-то че-то поменять.
Буду ковыряться.
Есле тебе известен ответ, напиши, плиз.
Добавлено @ 17:42
Уже разобрался.
Всем спасибо.

Автор: Naghual 8.12.2004, 18:52

В функции BrowseForFolder:

.ulFlags = BIF_RETURNONLYFSDIRS + BIF_STATUSTEXT
(удали константу BIF_DONTGOBELOWDOMAIN)

Автор: amt 9.12.2004, 16:54

Я менял вот эти const-ы

Код


Private Const BIF_RETURNONLYFSDIRS = 1
Private Const BIF_DONTGOBELOWDOMAIN = 2

Private Const BFFM_INITIALIZED = 1

можно получать разные эффекты

Автор: Naghual 9.12.2004, 18:20

А их еще много:

Код

Private Const BIF_BROWSEFORCOMPUTER As Long = &H1000
Private Const BIF_BROWSEFORPRINTER As Long = &H2000
Private Const BIF_BROWSEINCLUDEFILES As Long = &H4000
Private Const BIF_BROWSEINCLUDEURLS As Long = &H80
Private Const BIF_DONTGOBELOWDOMAIN As Long = &H2
Private Const BIF_EDITBOX As Long = &H10
Private Const BIF_NEWDIALOGSTYLE As Long = &H40
Private Const BIF_RETURNFSANCESTORS As Long = &H8
Private Const BIF_RETURNONLYFSDIRS As Long = &H1
Private Const BIF_SHAREABLE As Long = &H8000
Private Const BIF_STATUSTEXT As Long = &H4
Private Const BIF_USENEWUI As Long = &H40
Private Const BIF_VALIDATE As Long = &H20

Поэкспериментируй. Тебе понравится.