// sConnexion est une connexion définie par programmation.

gsMonCheminHFLocal is string = SysDirStorageCard() + fSep() + "MonApplication Data" + fSep() 
sMotDePasse is string = "Mon mot de passe"

NextTitle("Copie du fichier Catégorie")
HourGlass(True)
IF NOT HCopyFile("", ...
	gsMonCheminHFLocal + Catégorie.Nom + ".fic", sConnexion, Catégorie.Nom + ".fic", ...
	hCopyIndex, "", sMotDePasse) THEN 
		Error("Erreur pendant la copie du fichier " + Catégorie.Nom + " en local")
END

NextTitle("Copie du fichier CompteBancaire")
HourGlass(True) 
IF NOT HCopyFile("", gsMonCheminHFLocal + CompteBancaire.Nom + ".fic", ...
	sConnexion, CompteBancaire.Nom + ".fic", hCopyIndex, "", sMotDePasse) THEN 
		Error("Erreur pendant la copie du fichier " + Catégorie.Nom + " en local")
END

NextTitle("Copie du fichier Opérations")
HourGlass(True)
IF NOT HCopyFile("", gsMonCheminHFLocal + Operations.Nom + ".fic", ...
	sConnexion, Operations.Nom + ".fic", hCopyIndex, "", sMotDePasse) THEN 
		Error("Erreur pendant la copie du fichier " + Operations.Nom + " en local")
END

NextTitle("Copie du fichier SousCatégorie")
HourGlass(True)
IF NOT HCopyFile("", gsMonCheminHFLocal + SousCatégorie.Nom + ".fic", ...
	sConnexion, SousCatégorie.Nom + ".fic", hCopyIndex, "", sMotDePasse) THEN 
		Error("Erreur pendant la copie du fichier " + SousCatégorie.Nom + " en local")
END

NextTitle("Copie du fichier Utilisateur")
HourGlass(True)
IF NOT HCopyFile("", gsMonCheminHFLocal + Utilisateur.Nom + ".fic", ...
	sConnexion, Utilisateur.Nom + ".fic", hCopyIndex, "", sMotDePasse) THEN 
		Error("Erreur pendant la copie du fichier " + Utilisateur.Nom + " en local")
END
// Fermeture des sabliers 
HourGlass(False)
HourGlass(False)
HourGlass(False)
HourGlass(False)
HourGlass(False)

Info("La copie des fichiers sur le Smartphone est maintenant terminée.")