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 tous les fichiers d'une archive.


// Déclaration et initialisation des variables
 NomArchive est une chaîne = "MonArchive"
 CodeErreurOuvre est un entier
 CodeErreurSup est un entier
// Ouverture d'une archive
 CodeErreurOuvre = zipOuvre ( NomArchive , "C:\Répertoire\Archives\ArchivePdf.wdz" )
SI CodeErreurOuvre = 0 ALORS
     // Suppression de tous les fichiers
     CodeErreurSup = zipSupprimeTout ( NomArchive )
     SI CodeErreurSup <> 0 ALORS
        Erreur ( zipMsgErreur ( CodeErreurSup ))
     FIN
 SINON
    Erreur ( zipMsgErreur ( CodeErreurOuvre ))
 FIN


Le code suivant permet de supprimer tous les fichiers d'une archive.


// Déclaration et initialisation des variables
 NomArchive est une chaîne = "MonArchive"
 CodeErreurOuvre est un entier
 CodeErreurSup est un entier
// Ouverture d'une archive
 CodeErreurOuvre = zipOuvre ( NomArchive , "\Répertoire\Archives\ArchivePdf.zip" )
SI CodeErreurOuvre = 0 ALORS
    // Suppression de tous les fichiers
    CodeErreurSup = zipSupprimeTout ( NomArchive )
    SI CodeErreurSup <> 0 ALORS
       Erreur ( zipMsgErreur ( CodeErreurSup ))
    FIN
 SINON
    Erreur ( zipMsgErreur ( CodeErreurOuvre ))
 FIN