Exemple d'utilisation de la fonction HRestaureSauvegarde
Voici un exemple de restauration d'une base unique présente sur le serveur.
// Variables
gnIDSvg est un entier
Nouvelle_connexion est une Connexion
// Paramètres de la connexion
Nouvelle_connexion..Provider = hAccèsHFClientServeur
Nouvelle_connexion..Utilisateur = "PMO"
Nouvelle_connexion..MotDePasse = "motdepasse"
Nouvelle_connexion..Serveur = "MonServeurHF"
Nouvelle_connexion..BaseDeDonnées = "" // Pour restaurer une seule base, ne rien saisir ICI
Nouvelle_connexion..Cryptage = hCryptageNon
// Création de la sauvegarde
Sauvegarde_Doc est une hDescriptionSauvegarde
Sauvegarde_Doc..Description = "Sauvegarde Doc"
Sauvegarde_Doc..AvecIndex = Vrai
Sauvegarde_Doc..Destination = "Sauvegarde"
Sauvegarde_Doc..Source = "031951/*"
gnIDSvg = HSauvegarde(Nouvelle_connexion, Sauvegarde_Doc)
SI gnIDSvg = 0 ALORS
Erreur(HErreurInfo())
SINON
Info("Sauvegarde créée, identifiant :" + gnIDSvg)
FIN
// Fermeture de la connexion
SI HFermeConnexion(Nouvelle_connexion) = Faux ALORS
Erreur(HErreurInfo())
SINON
Multitâche(100)
FIN
// Restauration de la sauvegarde
SI HRestaureSauvegarde(Nouvelle_connexion, gnIDSvg) = Faux ALORS
Erreur("Echec de la restauration de la sauvegarde" + HErreurInfo(hErrMessage))
VersPressePapier(HErreurInfo())
SINON
Info("Restauration effectuée avec succès")
FIN