Cobol Foro - [Sintaxis] Copiar archivos en RED LAN

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Sintaxis] Copiar archivos en RED LAN (https://www.cobolforo.es/showthread.php?t=634)

Roger

24 de mayo de 2017 22:25

Copiar archivos en RED LAN

Amigos del foro deseo poner botón donde pueda copiar archivos del servidor a otro punto de la red LAN como respaldo del sistema.

intente con estos comandos

Código COBOL:

      MOVE "\\Roger-pc\d\VET-SALVADOR\debug\*.dat" TO RUTA-INICIAL.
      MOVE "\\Desktop-skgdvut\d\VET-SALVADOR\debug" TO RUTA-RESPALDO. 
      CALL "CBL_COPY_FILE2" USING RUTA-INICIAL RUTA-RESPALDO RETURNING STATUS-CODE.

no funciona

Kuk	24 de mayo de 2017 23:26

Roger, intenta con:

Código COBOL:

          MOVE "\\Roger-pc\d\VET-SALVADOR\debug\*.dat" & X"00" TO RUTA-INICIAL.
          MOVE "\\Desktop-skgdvut\d\VET-SALVADOR\debug" & X"00" TO RUTA-RESPALDO. 
          CALL "CBL_COPY_FILE2" USING RUTA-INICIAL RUTA-RESPALDO RETURNING STATUS-CODE.

Roger

25 de mayo de 2017 06:11

No logro que funcione probe de esa forma y nada.

Kuk	25 de mayo de 2017 09:57

Roger, joe me acabo de dar cuenta que tienes un asterisco por ahí. ¡Esto es imposible, tienes que copiarlos uno a uno! Haciendo un bucle. Puedes usar el control CmFile para saber cuántos ficheros hay a copiar.

Hrmcobol

27 de mayo de 2017 05:05

Hola Amigos, con un comando como:

Código COBOL:

     INVOKE DDE1 "Execute" USING "c:\copiar.bat" POW-SWSHOWMINIMIZED.

Nunca lo probé pero debería andar

Saludos

Roger

27 de mayo de 2017 06:35

Probe con la opcion de KUK y Hrmcobol no funciona

logre con esta sintaxix

Código COBOL:

MOVE "c:\WINDOWS\SYSTEM32\CMD.EXE /C  XCOPY /E \\Roger-pc\d\VET-SALVADOR\*.* \\Desktop-skgdvut\d\VET-SALVADOR" TO RUTA.
INVOKE pow-self "execute" USING RUTA POW-SWHIDE.

Hasta ahi todo bien, pero como siempre los clientes hacen la ilogica en uno de ellos el sistema operativo no esta en c:\WINDOWS\SYSTEM32\ sino en F:\WINDOWS\SYSTEM32\ y como por programa pongo C: no lo reconoce por esto no queria usar este comando y buscaba una alternativa, podrian decir cambia de C a F el software esta en un instalador en CD y por lo tanto no se donde lo instalara el cliente.
¿Como hacen ustedes una copia espejo?

Kuk	27 de mayo de 2017 09:38

Roger, debes obtener la variable de entorno WINDIR si quieres saber dónde está instalado Widnows. Además, %WINDIR%\system32 está en las rutas priotarias de búsqueda de programas, así que los programas que están en esta carpeta pueden llamarse sin indicar la ruta completa. Con lo cual, debería funcionarte así:

Código COBOL:

    MOVE "CMD.EXE /C  XCOPY /E \\Roger-pc\d\VET-SALVADOR\*.* \\Desktop-skgdvut\d\VET-SALVADOR" TO RUTA.
    INVOKE pow-self "execute" USING RUTA POW-SWHIDE.

La franja horaria es GMT +2. Ahora son las 03:21.