Verificar Carpeta En Red

[pabloman]

SALUDOS A TODOS, TENGO EL SIGUIENTE PROBLEMA, ESPERO QUE ME PUEDAN AYUDAR, TENGO EL SIGUIENTE CODIGO EN VB 6.0

Dim MyFso As FileSystemObject
Dim strOrigen As String
Dim strDestino As String, strDestino2 As String

strOrigen = "C:\PRUEBA\*.*" 'RUTA DEL DIR Y FILES A COPIAR
For j = 4 To 6 ' PARA EL PC DONDE SE COPIA
ARCHIVO = Dir(["\\PC[j]\D\PRUEBA\"], [vbDirectory]) ' COMPRUEBA SI EXISTE EL DIRECTORIO
If ARCHIVO = "PRUEBA" Then
Else
MkDir "\\PC[j]\D\PRUEBA" ' CREA LA CARPETA EN D:
End If
strDestino = "\\PC[j]\D\PRUEBA\"
Set MyFso = CreateObject("scripting.filesystemobject")
Call MyFso.CopyFile(strOrigen, strDestino)
Set MyFso = Nothing
Next j

LA IDEA ES QUE, AL ENTRAR AL CICLO FOR, ESTE VERIFICA SI EXISTE LA CARPETA PRUEBA EN LOS EQUIPOS QUE ESTAN EN RED (DEL 4 AL 6), SI LA CARPETA NO EXISTE DEBERIA CREARLA EN EL EQUIPO CORRESPONDIENTE Y LUEGO DEBE DE COPIAR LOS ARCHIVOS QUE ESTAN DENTRO DE C:\PRUEBA\*.* (EQUIPO SERVIDOR) AL EQUIPO EN RED CORRESPONDIENTE, PERO ME DA UN ERROR ('NOMBRE EXTERNO NO DEFINIDO') Y ME SEÑALA LA SIGUIENTE PORCION DE CODIGO:

["\\PC[j]\D\PRUEBA\"]

AL MODIFICAR LA LINEA DE CODIGO POR ESTA:

ARCHIVO = Dir("\\PC[j]\D\PRUEBA\", vbDirectory)

ME DA EL SIGUIENTE ERROR 'NOMBRE O NUMERO DE ARCHIVO INCORRECTO', AL DEPURAR ME SEÑALA ESA MISMA LINEA COMO ERRONEA.

SI ALGUIEN SABE DONDE ESTA MI ERROR, PORFAVOR HAGANMELO SABER DE ANTEMANO MUCHAS GRACIAS A TODOS.

[Bravenap]

Lo más lógico sería llamar a los distintos equipos por su IP y no por el nombre.

Yo también estoy intentando averiguar cómo se hace, así que me uno a la discusión.

Por otro lado, sería interesante saber si, aun estando los equipos conectador mediante una red interna, se permite el acceso ¿no? Puede que esté bien construida la aplicación pero que luego no se permita acceder a otro equipo.

De todas formas, te recomiendo que escribas con mayúsculas. Da la impresión de que estás gritando, y eso no es un buen comienzo.

A ver si hay suerte y encontramos las solución.

Un saludo.

[lorecasas]

Hola Foro:

Yo tengo tambien el mismo problema, tengo una direccion de red y uso el domando dir, funciona bien en modo debug pero no hay manera en modo de ejecucion. Me sale el mismo error de 'NOMBRE O NUMERO DE ARCHIVO INCORRECTO', El nombre del archivo y la ruta son correctos. Alguien ya lo ha solucionado? No he podido

Atte. Lorena

[alvmet]

Si PC[j] es un array donde se encuentran los nombres de PC's, pues lo que estas haciendo mal es la concatenacion de cadenas. Si PC no es un array pues ni te molestes en mirar la solucion.

Para solucionar prueba:

ARCHIVO = Dir("\\" & PC[j] & "\D\PRUEBA\", vbDirectory)
Por sino lo tenes claro, el operador & concatena cadenas.

Saludos, y aver si te sirvio.