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 créer 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 fRepSélecteur .



// Déclaration et initialisation des variables
 NomArchive est une chaîne = "sav_compress.WDZ"
 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 , CompleteRep ( CheminArchive )+ MonArchive )
// Affichage du 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 de créer 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 = "sav_compress.zip"
 CheminArchive est une chaîne = "\Sauvegardes"
 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 , CompleteRep ( CheminArchive )+ MonArchive )
// Affichage du message d'erreur si la création n'a pas été effectuée
 SI ResCréationArchive <> 0 ALORS
    Erreur ( zipMsgErreur ( ResCréationArchive ))
 FIN