Tarea 'Save As' en Procesos DataCycle

Esta tarea realiza una segunda copia del resultado de un proceso y reproduce el comportamiento del ‘Guardar Como’ de otras aplicaciones o el Copiar Y Pegar de Windows. De esta manera evitamos explorar por carpetas para generar una segunda copia de los archivo Excel generados. Aunque la tarea de 'Comprimir fichero en zip' ya realiza una copia de seguridad, con esta Tarea Código Script, se consigue mover los ficheros a una ubicación de red o un dispositivo externo sabiendo que no se necesita un descompresor para su uso posterior. El código es como sigue:

Sub Main()

Dim fso,fldr,carpeta

carpeta = "C:\Temp\"

Set fldr = CreateObject("Scripting.FileSystemObject")

If fldr.folderexists(carpeta) then

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists("@PAR(TARGET_FILE_PATH)\@PAR(TARGET_FILE_NAME)") Then

fso.CopyFile "@PAR(TARGET_FILE_PATH)\@PAR(TARGET_FILE_NAME)",carpeta

End If

End If

End Sub

En este ejemplo se determina un destino fijo, pero bien se puede definir un parámetro global o de proceso como valor de la variable carpeta.

Incluso podemos diseñar una variante donde el fichero nuevo tenga un nombre diferente, el cambio seria:

............................................

carpeta = "F:\Ventas\InfVentas_Copia_” & @PAR()CURRENT_MONTH_NAME[ESP]) & ” .xls"

Set fldr = CreateObject("Scripting.FileSystemObject")

If fldr. FileExists (carpeta) then

............................................