Comment copier des fichiers Hyper File sur un pocket via la commande ceCopieFichier() ? Voici un exemple de code copiant les fichiers d`un exécutable windev sur un pocket PC : //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\" |