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 d'afficher un message d'erreur en cas de problème lors de la création d'une archive. Le nom de l'archive est saisi dans un champ de saisie : LibelléNomArchive. Le chemin du répertoire est sélectionné avec la fonction fRépSélecteur .



// Déclaration et initialisation des variables
 NomArchive est une chaîne
 CheminArchive est une chaîne
 ResCréationArchive est un entier
// Sélection du nom de l'archive. LibelléNomArchive est un champ de saisie.
 NomArchive = LibelléNomArchive
// Sélection du chemin de l'archive
 CheminArchive = fRepSélecteur ( "" , "" , "Sélection du répertoire" )
// Création de l'archive "MonArchive"
 ResCréationArchive = zipCrée ( NomArchive , CheminArchive )
// Affichage d'un message d'erreur si la création n'a pas été effectuée
 SI ResCréationArchive <> 0 ALORS
    Erreur ( zipMsgErreur ( ResCréationArchive ))
 FIN


Le code suivant permet d'afficher un message d'erreur en cas de problème lors de la création d'une archive. Le nom de l'archive est saisi dans un champ de saisie : LibelléNomArchive.



// Déclaration et initialisation des variables
 NomArchive est une chaîne
 CheminArchive est une chaîne = "\Sauvegarde"
 ResCréationArchive est un entier
// Sélection du nom de l'archive. LibelléNomArchive est un champ de saisie.
 NomArchive = LibelléNomArchive
// Création de l'archive "MonArchive"
 ResCréationArchive = zipCrée ( NomArchive , CheminArchive )
// Affichage d'un message d'erreur si la création n'a pas été effectuée
 SI ResCréationArchive <> 0 ALORS
    Erreur ( zipMsgErreur ( ResCréationArchive ))
 FIN