SALUDOS A TODOS, TENGO EL SIGUIENTE PROBLEMA, ESPERO QUE ME PUEDAN AYUDAR, TENGO EL SIGUIENTE CODIGO EN VB 6.0
Cita: 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.