Subir a la nube

Estructura

UploadToCloud(sService, sFileName, sFolder: Texto; bOverwrite, bAllowAuth: Booleano): Texto

Tipo

Función

Descripción

Esta función intentará subir el archivo sFileName al servicio en la nube especificado en sService. La función devolverá «SUCCESS» si la carga se ha realizado correctamente; en caso contrario, se devolverá el error correspondiente. Si se especifica el parámetro sFolder, el archivo se subirá a esa carpeta. Si la carpeta no existe, se creará automáticamente. Si el parámetro sFolder está vacío, el archivo se subirá al directorio raíz. Si el parámetro bOverwrite es True y ya existe un archivo con ese nombre en la nube, dicho archivo se eliminará antes de la carga. Al ejecutarse, si no existe ningún token para el servicio en la nube Y el parámetro bAuth es True, se mostrará la pantalla de inicio de sesión del servicio en una ventana del navegador. Este token se guardará para futuras sesiones.

Parámetros: 5

sService = el nombre del servicio en la nube. Los valores válidos son: «BOX» (box.com) y «DROPBOX» (dropbox.com)

sFileName = el nombre del archivo que se va a subir (NO un directorio). El archivo debe encontrarse en el directorio temporal de IndySoft
. sFolder = carpeta opcional en la nube donde se debe subir el archivo. Si este parámetro está vacío, el archivo se subirá al directorio raíz.

bOverwrite = si el parámetro bOverwrite es True y ya existe un archivo con ese nombre en la nube, el archivo se eliminará antes de la subida.

bAllowAuth = Si no se encuentran los tokens guardados anteriormente en la base de datos o estos no permiten el acceso al servicio en línea, este parámetro determina si debe mostrarse una ventana del navegador para permitir la introducción de credenciales. Si se pretende ejecutar este script en una configuración automatizada o sin supervisión, este parámetro debe establecerse en «False».

Valor devuelto

Texto

Ejemplos

sCompany = "ABC COMPANY"

sEquip = "ABC123"

sFileName = sCompany & "-" & sEquip & ".zip"

sResult = ExportAsset(sCompany, sEquip, sFileName, "")

if sResult = "SUCCESS" then

sResult = UploadToCloud("DROPBOX", sFileName, "", False, False)

if sResult <> "SUCCESS" then

ShowMessage("La carga no se completó: " & sFileName)

End If

DeleteTempFile(sFileName)

End If |