RE: DriveListBox, DirListBox

kelny — Sun, 13 May 2007 02:31:24 GMT

[quote][b]JuraCake (17.04.2007)[/b][hr]DriveListBox, DirListBox не должны и не выводят Сетевое окружение или Мой компьютер. Но можно как нито исправить сий "недочет"?[/quote]

[code]Dim Shell As Object
Dim objFolder As Object
Dim objFolder2 As Object
Dim objItem
Dim objFolderNetwork
Dim objSubItem
Dim WScript

Set Shell = CreateObject("Shell.Application")
'получение папки "Сетевое окружение"
Set objFolder = Shell.NameSpace("::{208D2C60-3AEA-1069-A2D7-08002B30309D}")
'получение папки "Вся сеть"
Set objFolder2 = objFolder.Items().Item("EntireNetwork").GetFolder
'получение папки "Microsoft Windows Network"
For Each objItem In objFolder2.Items()
If objItem.name = "Microsoft Windows Network" Then
Set objFolderNetwork = objItem.GetFolder
End If
Next
'перебор доменов и рабочих групп
For Each objItem In objFolderNetwork.Items()
If objItem.IsFolder Then
Set objFolder = objItem.GetFolder
'перебор компьютеров
For Each objSubItem In objFolder.Items()
WScript.Echo objSubItem.name
Next
End If
Next[/code]

И использовать какой нибудь список для вывода необходимых переменнх.

И ещё можно здесь посмотреть: http://bbs.vbstreets.ru/viewtopic.php?p=72891&sid=f3756abed18b6f5500873a20c567b460

DriveListBox, DirListBox

JuraCake — Tue, 17 Apr 2007 14:02:33 GMT

DriveListBox, DirListBox не должны и не выводят Сетевое окружение или Мой компьютер. Но можно как нито исправить сий "недочет"?

Релиб / Программирование / Visual Basic / DriveListBox, DirListBox / Latest Posts

RE: DriveListBox, DirListBox

DriveListBox, DirListBox