Visual Basic - Ver archivos de una unidad de red con FileListBox

Tengo un problema con FileListBox y DirListBox a la hora de ver los archivos de una unidad de red ej. (\\Servidor\carpeta1\carpeta2\Docs). Con unidades locales, funciona perfectamente, pero en mi caso, tengo los archivos distribuidos en varios servidores. La solución que he adoptado (un poco chapucera) es mapear una unidad de red y usando la letra de ésta unidad mapeada en el .path del DirListBox.

¿Alguien tiene una idea de como resolver ésto?
Gracias por anticipado.

Alejandro

Si , busca en internet todo lo relacionado con FileSystemObject. Vas a poder recorrer directorios y listar archivos.
Aca te paso algo

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/230-listar-archivo-directorio-con-fso.htm

Gracias Christian.
Ya probé con FileSystemObject, pero con esto no puedo hacer referencia a una unidad de red a no ser que esté mapeada localmente (y es lo que no quiero hacer, me parece una solución un poco chapuza y además tendría que mapear los 8 o 10 servidores)

No puedo puedo poner, por ejemplo: Dir1.Path = "\\Servidor\Carpeta1\Carpeta2\" porque no lo admite.

Lo que he hecho es:

Map M: = "\\Servidor1\Carpeta1\Carpeta2\"
Map N: = "\\Servidor2\Carpeta1\Carpeta2\"
Map O: = "\\Servidor3\Carpeta1\Carpeta2\"

Dir1.Path = "M:"
ó
Dir1.Path = "N:"
ó
Dir1.Path = "O:"

hola

yo tambien necesito hacer lo mismo que tu, y tampoco quiero estar mapeando las unidades de los servidores.

si encontraste la solucion a tu consulta agradeceria mucho si pudieras compartir..


saludos

Bueno, si esos controles no te sirven tal vez debas hacer "algo por tu cuenta" usando la función DIR. En este ejemplo tengo una carpeta compartida llamada precisamente "compartida", que está en la computadora que se llama SERVIDOR. Los archivos que obtiene el procedimiento los agrega a un ListBox (List1). De esta manera no necesitas mapear unidades.

Private Sub LeerArchivos
Dim stArch As String

stArch = Dir("\\\servidor\compartida\\*.*")
Do While stArch <> Space(0)
List1.AddItem stArch
stArch = Dir
Loop
End Sub

A ver si te sirve.

En esta línea (stArch = Dir("\\\servidor\compartida\\*.*")
se fueron dos diagonales de más, debe ser:
stArch = Dir("\\servidor\compartida\*.*")

Gracias "Yo"

Efectivamente ésto sirve para archivos. ¿Y los subdirectorios? No los lee.
¿Hay alguna forma de leer el nombre de las subcarpetas?

Gracias

Alejandro

La función DIR puede recibir un segundo parámetro (que es opcional), para indicar el atributo de archivos que quieras. Para los subdirectorios el valor es 16, o la constante vbDirectory. Puedes buscar ejemplos en la web o en la ayuda de VB.

Muchas gracias YO.

Perfecto. Ahora si. Con un poco de elaboración me va a quedar que ni pintado.

Muchas gracias.

PD. Para la proxima vez, prometo estudiarme antes todas las opciones de las soluciones que apuntais los que sabeis.

Saludos
Alejandro