Voici un exemple simplifie de de ce traitement
Sablier()
// Connexion FTP
nIdConnexion = FTPConnecte("ftpperso.free.fr", "freedev.statique", "MotDePasse")
SI nIdConnexion<>-1 ALORS
// La connexion est active
fListeFichier(ComplteRep(fRepExe()) + "\Pages\*.html", "<>pFTPCopieFichier;")
// Dconnexion
FTPDconnecte(nIdConnexion)
SINON
Erreur("La connexion a echoue", ErreurInfo())
FIN
Sablier(Faux)
PROCEDURE <b>pFTPCopieFichierb>(sChemin, sNomFichier, sChange, sPointeur)
Message("Copie du fichier " + sNomFichier)
ResEnvoie est un boolen
ResEnvoie = FTPEnvoie(nIdConnexion,sChemin + sNomFichier, "/")
SI ResEnvoie = 0 ALORS ErreurInfo()