//Exemplo
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()