¿Cómo crear un acceso directo a un informe Excel en el escritorio automáticamente desde Datacycle?

Datacycle reporting genera y distribuye automáticamente a través del correo electrónico informes en formato Excel, HTML o Access, pero, ¿Por qué no hacer que una vez generado el informe nos cree un acceso directo en el escritorio hacia ese informe en vez de enviarlo por correo?

Esto es posible gracias a una potente tarea que se puede definir dentro de un proceso de Datacycle Reporting, la tarea de Ejecución de scripts. Esta tarea se puede ejecutar al final de todo, de manera que la creación del acceso directo sea lo último una vez  llenado el informe con la información correspondiente.

A continuación se muestra un ejemplo programado en Visual Basic Script que utiliza una variable del proceso @PAR(TARGET_FILE_FULLPATH) que contiene el directorio y el nombre del informe que se generará, esto será útil para crear el acceso directo. La constante NETHOOD con valor &H10& indica el directorio donde queremos que nos cree el acceso directo, en este caso el escritorio, y por último nuestro acceso directo tendrá el nombre: InformeDatacycle

Sub CrearAccesoDirecto
    dim objWSHShell
    dim objShell
    dim objFolder
    dim objFolderItem
    dim strNetHood
    dim strShortcutName
    dim strShortcutPath
    dim objShortcut

    Const NETHOOD = &H10&

    Set objWSHShell = CreateObject("Wscript.Shell")
    Set objShell = CreateObject("Shell.Application")

    Set objFolder = objShell.Namespace(NETHOOD)
    Set objFolderItem = objFolder.Self
    strNetHood = objFolderItem.Path

    strShortcutName = "InformeDatacycle"
    strShortcutPath = "@PAR(TARGET_FILE_FULLPATH)"
    Set objShortcut = objWSHShell.CreateShortcut (strNetHood & "\" & strShortcutName & ".lnk")
    objShortcut.TargetPath = strShortcutPath
    objShortcut.Save

End Sub