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 découper une archive. Chaque sous-archive sera copiée sur une disquette. La taille des sous-archives sera donc de 1,4 Mo. L'archive originale n'est pas détruite lors du découpage. Un espace de 100 Ko est réservé sur la première disquette.


// Déclaration et initialisation des variables
CodeErreurCréation est un entier
 CodeErreurAjout est un entier
 CodeErreurDécoupe est un entier
 NbPartieNécessaire est un entier
// Création d'une archive
CodeErreurCréation = zipCrée ( "MonArchive" , "C:\MesArchives\MonArchive.WDZ" )
SI CodeErreurCréation = 0 ALORS
    // Ajout de fichiers dans cette archive
   CodeErreurAjout = zipAjouteRépertoire ( "MonArchive" , ...
          "C:\MonRép\MesFichiers" , Vrai , zipRépertoire )
    SI CodeErreurAjout = 0 ALORS
       // Nombre de disquettes nécessaires
      NbPartieNécessaire = zipNbPartieNécessaire ( "MonArchive" , 1400 * 1024 )
      Info ( NbPartieNécessaire + "disquettes sont nécessaires" )
       // Découpage de l'archive
      CodeErreurDécoupe = zipDécoupe ( "MonArchive" , ...
                   "A:\Archive.WDZ" , 1400 * 1024 , Faux , 100 * 1024 )
       // Affichage du message d'erreur si l'archive n'a pas été découpée
      SI CodeErreurDécoupe <> 0 ALORS
           Erreur ( zipMsgErreur ( CodeErreurDécoupe ))
       FIN
   SINON
       // Affichage du message d'erreur si les fichiers n'ont pas été ajoutés
       Erreur ( zipMsgErreur ( CodeErreurAjout ))
   FIN
 SINON
     // Affichage du message d'erreur si l'archive n'a pas été créée
     Erreur ( zipMsgErreur ( CodeErreurCréation ))
 FIN