ResListeFichier, UnFichier sont des chaînes
ResListeFichier = fListeFichier(ComplèteRep(fRepExe()) + "*.FIC", frNonRécursif)
// Pour chaque fichier trouvé
POUR TOUTE CHAINE UnFichier DE ResListeFichier SEPAREE PAR RC
SI HCopieFichier(CONNEXION_CLIENT_SERVEUR, fExtraitChemin(UnFichier, fFichier+fExtension),"", UnFichier) = Faux ALORS
Erreur("Impossible de copier les fichiers Hyper File vers le serveur Hyper File Client/Serveur."+RC+RC+HErreurInfo()+RC+"Code : "+HErreur())
FinProgramme()
FIN
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=4968&post_id=20533