Visual Basic - comando Copy

comando Copy

Publicado por zendi (33 intervenciones) el 17/09/2018 22:39:42

MsgBox "Hola este mensaje es para avisarle acuse de recibo del condominio para este mes"

Set fso = CreateObject("scripting.FileSystemObject")

For i = 0 To 1

     Set Fill = fso.createTextFile("C:/Users/damian/Desktop/Hola1" & i & ".err")

Next

copy codigo.vbs C:/Users/damian/Desktop/archivos

Estoy desarrollando este codigo para crear un documento en la siguiente ruta:

C:/Users/damian/Desktop/Hola1" & i & ".err"

y que luego el archivo que contiene este mismo codigo se copie en esta otra ruta:

copy codigo.vbs C:/Users/damian/Desktop/archivos

Pero no lo esta efectuando.

El error lo indica asi: Linea 6 Caracter 17

Valora esta pregunta

Responder

Val: 3

Publicado por Farid Azueta (2 intervenciones) el 18/09/2018 16:46:16

Buen día
El copiado de archivos uso dos formas, en este pequeño ejemplo copio de un servidor de la red a mi equipo

Dim fs As New FileSystemObject

    servidorAct = GetSetting("Punto de Venta", "Settings", "SERV_ACT", "") ' Obtengo el nombre del servidor

    Screen.MousePointer = vbHourglass

    'Se crea la carpeta de Punto de Venta - Para que haya donde copiar los archivos

    If Dir("C:\Punto de Venta\", vbDirectory) = "" Then MkDir "C:\Punto de Venta\"

    'Se copian los archivos necesarios de reportes en las ubicacciones correspondientes - copio todos los archivos

    Call fs.CopyFile("\\" & servidorAct & "\Punto de Venta\reportes\*.rpt", "C:\Punto de Venta\reportes\")

    'Se copia el ejecutable del punto de venta.

    FileCopy "\\" & servidorAct & "\Punto de Venta\Punto de Venta.EXE", "C:\Punto de Venta\Punto de Venta.EXE"

    Screen.MousePointer = vbDefault

    MsgBox "El proceso ha finalizado satisfactoriamente"

Espero te sirva
Saludos

Valora esta respuesta

Comentar