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.
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
|