Visual Basic - comando Copy

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

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

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

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"