//Variable
sRepertoire est une chaîne = ComplèteRep(fRepExe())

Message(Case1, "Copie des fichiers FIC sur le POCKET")
fListeFichier(sRepertoire + "*.fic",pCopieFichiersSurPPC)

Message(Case1, "Copie des fichiers NDX sur le POCKET")
fListeFichier(sRepertoire + "*.ndx",pCopieFichiersSurPPC)

Message(Case1, "Copie des fichiers MMO sur le POCKET")
fListeFichier(sRepertoire + "*.mmo",pCopieFichiersSurPPC)

Message(Case1, "")

//******************************
//Détail de la procédure pCopieFichiersSurPPC
//******************************

Procedure pCopieFichiersSurPPC(sChemin, sNomFic, cChange, nPointeur)

//Variables
sNomFichier est une chaîne = ComplèteRep(sChemin) + sNomFic
ResCopie est un booléen

Trace("Copie du fichier sur le pocket : " + sNomFichier)
Message("Début de copie du fichier sur le pocket : " + sNomFichier)

//Copie des fichiers sur le pocket
ResCopie = ceCopieFichier(cePCVersPocket + ceEcrase, sNomFichier, sCheminDonnéesPPC + sNomFic)

Trace("Retour de la copie du fichier sur le POCKET : " + ResCopie)

// Problème rencontré ?
SI ResCopie = Vrai ALORS
//Ne rien faire
Message(Case1,"Le fichier " + sNomFichier + " a été copié sur le pocket PC.")
SINON
Erreur("Erreur lors de la copie du fichier " + sNomFichier + " sur le Pocket PC." + CR + ErreurInfo())
RETOUR
FIN

//Dans cet exemple, sCheminDonnéesPPC est une chaîne = "\Carte de stockage\Pocket Notebook\"