Archivos Compartidos

13/09/2004 - 20:48 por Sector7G | Informe spam
Hola al grupo, lo q pretendo hacer es una especia
de "entorno de red", conseguir los dominios de la red y
los equipos, eso ya lo tengo hecho. Mi problema ahora es
conseguir los archivos y carpetas de cada ordenador para
poder ver su contenido desde mi programa, a ver alguien
podría ayudarme con esto.

Un Saludo y gracias.

Preguntas similare

Leer las respuestas

#1 Carlos
14/09/2004 - 01:37 | Informe spam
Hola me podrias facilitar como haces lo que ya tienes?





Hola al grupo, lo q pretendo hacer es una especia
de "entorno de red", conseguir los dominios de la red y
los equipos, eso ya lo tengo hecho. Mi problema ahora es
conseguir los archivos y carpetas de cada ordenador para
poder ver su contenido desde mi programa, a ver alguien
podría ayudarme con esto.

Un Saludo y gracias.
.

Respuesta Responder a este mensaje
#2 Secto7G
14/09/2004 - 10:33 | Informe spam
Yo lo he puesto para que salga todo en un treeview, pones
este código en el evento load del formulario y listo.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim oDomain As New DirectoryServices.DirectoryEntry
("WinNT:")
Dim oDominios As DirectoryServices.DirectoryEntries
Dim oDominio As DirectoryServices.DirectoryEntry

'Cargar dominios o grupos de trabajo
oDominios = oDomain.Children
oDominios.SchemaFilter.Add("Domain")

Dim oComputadoras As DirectoryServices.DirectoryEntries
Dim oComputadora As DirectoryServices.DirectoryEntry

Dim oNodo As TreeNode
Dim i as integer = 0

Me.TreeView1.Nodes.Clear()

For Each oDominio In oDominios

oNodo = New TreeNode(oDominio.Name, 0, 1)
Me.TreeView1.Nodes.Add(oNodo)

'Por cada grupos o dominio, cargar las computadoras
conectadas

oComputadoras = oDominio.Children
oComputadoras.SchemaFilter.Add("Computer")

For Each oComputadora In oComputadoras

oNodo = New TreeNode(oComputadora.Name, 0, 1)
Me.TreeView1.Nodes(i).Nodes.Add(oNodo)

Next

i += 1

Next


''''''''''''''''''''''''''''''''''''''''
Un Saludo
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida