pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


Le code suivant permet de copier un répertoire. Les sous-répertoires sont également copiés (constante frRécursif).



// Déclaration des variables
RépertoireACopier est une chaîne
RépertoireCopié est une chaîne
ResCopie est un booléen
// Sélection du répertoire à copier
RépertoireACopier = "C:\RépertoireA"
// Sélection du répertoire copié
RépertoireCopié = "C:\RépertoireB"
// Copie du répertoire
ResCopie = fRepCopie (RépertoireACopier, RépertoireCopié, frRécursif )
// Affichage du message d'erreur si la copie n'a pas été effectuée
SI ResCopie = Faux ALORS
   Erreur(ErreurInfo( errMESSAGE ))
SINON
   Info("Le(s) répertoire(s) ont été copiés")
FIN


Le code suivant permet de copier un répertoire. Le répertoire à copier et le répertoire copié sont sélectionnés avec la fonction fRepSélecteur . Une fenêtre de progression s'affiche (constante frJauge ).



// Déclaration des variables
RépertoireACopier est une chaîne
RépertoireCopié est une chaîne
ResCopie est un booléen
// Sélection du répertoire à copier
RépertoireACopier = fRepSélecteur("", "Sélection du répertoire à copier")
// Sélection du répertoire copié
RépertoireCopié = fRepSélecteur("", "Sélection du répertoire copié")
// Copie du répertoire
ResCopie = fRepCopie (RépertoireACopier, RépertoireCopié, 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 répertoire a été copié")
FIN