Télécharger vers le cloud

Structure

UploadToCloud(sService, sFileName, sFolder : Texte ; bOverwrite, bAllowAuth : Booléen) : Texte

Type

Fonction

Description

Cette fonction tentera de télécharger le fichier sFileName vers le service cloud indiqué dans sService. La fonction renverra « SUCCESS » si le téléchargement a abouti ; dans le cas contraire, elle renverra le message d'erreur. Si le paramètre sFolder est spécifié, le fichier sera téléchargé dans ce dossier. Si le dossier n'existe pas, il sera créé automatiquement. Si le paramètre sFolder est vide, le fichier sera téléchargé dans le répertoire racine. Si le paramètre bOverwrite est défini sur True et qu'un fichier portant ce nom existe déjà dans le cloud, celui-ci sera d'abord supprimé avant le téléchargement. Lors de l'exécution, si aucun jeton n'existe pour le service cloud ET si le paramètre bAuth est défini sur True, l'écran de connexion du service s'affichera dans une fenêtre de navigateur. Ce jeton sera mémorisé pour les sessions futures.

Paramètres : 5

sService = le nom du service cloud en ligne. Les valeurs acceptées sont : « BOX » (box.com) et « DROPBOX » (dropbox.com)

sFileName = le nom du fichier à télécharger (PAS un répertoire). Le fichier doit se trouver dans le répertoire IndySoft Temp
sFolder = dossier facultatif dans le Cloud où le fichier doit être téléchargé. Si ce paramètre est vide, le fichier sera téléchargé dans le répertoire racine.

bOverwrite = si le paramètre bOverwrite est défini sur True et qu'un fichier portant ce nom existe déjà dans le cloud, le fichier sera d'abord supprimé avant le téléchargement.

bAllowAuth = Si les jetons précédemment enregistrés dans la base de données sont introuvables et/ou ne permettent pas d'accéder au service en ligne, ce paramètre détermine s'il faut afficher une fenêtre de navigateur pour permettre la saisie des identifiants. Si ce script est destiné à être exécuté dans le cadre d'une configuration automatisée ou sans intervention, ce paramètre doit être défini sur False.

Valeur de retour

Texte

Exemples

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("Le téléchargement n'a pas été effectué : " & sFileName)

End If

DeleteTempFile(sFileName)

End If |