È possibile effettuare l’aggiornamento (upload) di una ricetta anche attraverso uno script che referenzi la libreria RCPUPLOAD80.DLL come nell’esempio seguente:

 

 

'Dichiarazione

Dim UL_dll as Object         'oggetto server ActiveX

Dim szFile as String         'path+nomefile della ricetta

Dim rc as Boolean       'returnCode

 

'crea oggetto server activeX per upload

Set UL_dll = CreateObject("rcpUpload80.clsUpLoad")

 

'Ricetta da inviare

'Se il sistema prevede l'utilizzo di stazioni di 'rete, occorre specificare il percorso di rete del 'file!

szFile = "c:\programmi\Crickets Automation\" & _

             "X Vision 8.0\Projects\MioProgetto\" & _

             "Recipes\MiaRicetta1"

 

'esegue metodo Upload

rc = UL_dll.UpLoad(szFile)

 

 

Nota: l’upload viene sempre portato a termine. In caso di errore durante l’elaborazione o l’invio di un elemento della ricetta, l’elemento viene semplicemente ignorato, mentre gli elementi corretti vengono comunque trasferiti. Il metodo Upload restituisce TRUE in assenza di errori, FALSE in caso contrario.