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 supprimer un répertoire. Le répertoire à supprimer est sélectionné par l'utilisateur grâce à la fonction fRepSélecteur .



-- Code de clic sur BtnSuppressionRépertoire
// Déclaration des variables
ResSuppression est un booléen
NomCheminRépertoire est une chaîne
// Sélection du répertoire
NomCheminRépertoire = fRepSélecteur("", "Sélectionnez un répertoire",...
        "Sélectionnez le répertoire à supprimer")
// Suppression du répertoire sélectionné
ResSuppression = fRepSupprime (NomCheminRépertoire, frRécursif )
// Erreur ?
SI ResSuppression = Vrai ALORS
   Info("Le répertoire a été supprimé")
SINON
   // Affichage du message d'erreur
   Erreur(ErreurInfo( errMESSAGE ))
FIN


Le code suivant permet de supprimer un répertoire.



-- Code de clic sur BtnSuppressionRépertoire
// Déclaration des variables
ResSuppression est un booléen
NomCheminRépertoire est une chaîne
// Sélection du répertoire
NomCheminRépertoire = "C:\MesRépertoires\RepASupprimer"
// Suppression du répertoire sélectionné
ResSuppression = fRepSupprime (NomCheminRépertoire, frRécursif )
// Erreur ?
SI ResSuppression = Vrai ALORS
   Info("Le répertoire a été supprimé")
SINON
   // Affichage du message d'erreur
   Erreur(ErreurInfo( errMESSAGE ))
FIN