Auteur: Patrick BikerExemples évolués
Chaque exemple montre une utilisation pratique de la fonction du WLangage.
Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.
Le code suivant permet de copier un fichier. Le fichier à copier et le fichier copié sont sélectionnés avec la fonction fSélecteur . Une fenêtre de progression s'affiche (constante frJauge ).
|
||
|
// Déclaration des variables
FichierACopier est une chaîne FichierCopié est une chaîne ResCopie est un booléen // Sélection du fichier à copier FichierACopier = fSélecteur("", "", "Sélection du fichier à copier", ... "Tous fichiers (*.*)"+ TAB +"*.*", "", fselOuvre + fselExiste ) // Sélection du fichier copié FichierCopié = fSélecteur("", "", "Sélection du fichier copié", ... "Tous fichiers (*.*)"+ TAB +"*.*", "", fselCrée ) // Copie du fichier ResCopie = fCopieFichier (FichierACopier, FichierCopié, frJauge ) // Affichage du message d'erreur si la copie n'a pas été effectuée SI ResCopie = Faux ALORS Erreur(ErreurInfo( errMESSAGE )) SINON Info("Le fichier a été copié") FIN
|
||
Le code suivant permet de copier un fichier.
|
||
|
// Déclaration des variables
FichierACopier est une chaîne = "\Mes Fichiers\FichierA.TXT" FichierCopié est une chaîne = "\Mes Fichiers\FichierB.TXT ResCopie est un booléen // Copie du fichier ResCopie = fCopieFichier (FichierACopier, FichierCopié) // Affichage du message d'erreur si la copie n'a pas été effectuée SI ResCopie = Faux ALORS Erreur(ErreurInfo( errMESSAGE )) SINON Info("Le fichier a été copié") FIN
|
||
Le code suivant permet de copier un fichier.
|
||
|
// Déclaration des variables
FichierACopier est une chaîne FichierCopié est une chaîne ResCopie est un booléen // Sélection du fichier à copier FichierACopier = "C:\Répertoires\FichierB.doc" // Sélection du fichier copié FichierCopié = "C:\Répertoires\FichierA.doc" // Copie du fichier ResCopie = fCopieFichier (FichierACopier, FichierCopié) // Affichage du message d'erreur si la copie n'a pas été effectuée SI ResCopie = Faux ALORS Erreur(ErreurInfo( errMESSAGE )) SINON Info("Le fichier a été copié") FIN
|
