Ayuda con commondialog

[5v5]

Hola, espero ke se encuantren bien todos los del foro....

Bueno, tengo otro proble o mas bien duda...

Que instruccion o codigo devo introducir a mi componente commondialog, para que a la hora que se abra la ventana de commondialog, me muestre las pc de mi red(lan), como la que aparece cuando vaz a compartir una unidad de red.

es posible hacerlo con commondialog, o necesito hacerlo con Apis.

bueno espero y me puedan ayudar gracias.

[David]

Eso no se hace con el CommonDialog, por cierto, con la API

[aavg]

5v5 comentanos si sabes cual es la API que se requiere para mostrar ese cuadro de dialogo que te permite explorar toda tu PC y la red, sino es asi haznoslo saber para ponerte un pequeño ejemplo del uso de la API

[5v5]

hola, gracias por su ayuda...

miren investigando encontre y modifique el siguiente codigo...

Option Explicit
Private Const ERROR_SUCCESS As Long = 0
Private Const MAX_PATH As Long = 260
Private Const CSIDL_NETWORK As Long = &H12
Private Const BIF_RETURNONLYFSDIRS As Long = &H1
Private Const BIF_BROWSEFORCOMPUTER As Long = &H1000

Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" _
(lpBrowseInfo As BROWSEINFO) As Long
Private Declare Function SHGetSpecialFolderLocation _
Lib "shell32.dll" _
(ByVal hwndOwner As Long, _
ByVal nFolder As Long, _
pidl As Long) As Long

Private Declare Sub CoTaskMemFree Lib "ole32.dll" _
(ByVal pv As Long)
Private Function GetBrowseNetworkWorkstation() As String
Dim BI As BROWSEINFO
Dim pidl As Long
Dim sPath As String
Dim pos As Integer

If SHGetSpecialFolderLocation(Me.hWnd, CSIDL_NETWORK, pidl) = RROR_SUCCESS then

With BI
.hOwner = Me.hWnd
.pidlRoot = pidl
.pszDisplayName = Space$(MAX_PATH)
.lpszTitle = "Select a network computer."
.ulFlags = BIF_BROWSEFORCOMPUTER
End With

If SHBrowseForFolder(BI) <> 0 Then
GetBrowseNetworkWorkstation = "\" & BI.pszDisplayName
End If

Call CoTaskMemFree(pidl)

End If
end Function
Private Sub Command1_Click()
Text1.Text = GetBrowseNetworkWorkstation()
End Sub

pero la verdad, no logro entenderlo muy bien, me lo podrian explicar un poquito, pero tambien quiciera saber que devo de modificar para que cuando me aparesca la ventana solo me muestre los grupos de trabajo y las pc, y no las carpetas compartidas...
gracias