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 vérifier que l'espace disque disponible est suffisant pour extraire tous les fichiers présents dans une archive. Pour cela, la taille non-compressée de l'ensemble des fichiers présents dans une archive est comparée à l'espace disque disponible ( fDisqueInfo ).



// Déclaration et initialisation des variables
NomArchive est une chaîne = "MonArchive"
CodeErreurOuvre est un entier
CodeErreurExtrait est un entier
TailleDisque est un réel

// Ouverture d'une archive
CodeErreurOuvre = zipOuvre ( NomArchive , "C:\Répertoire\Archives\ArchivePdf.wdz" )

SI
CodeErreurOuvre = 0 ALORS
   // Extraction des fichiers de l'archive
   SI OuiNon ( "Voulez-vous extraire tous les fichiers de l'archive ?" ) ALORS
      // Calcul de l'espace disque disponible
      TailleDisque = fDisqueInfo ( "C:\Temp" , fdEspaceLibre )
      // L'espace disque est-il suffisant ?
      SI TailleDisque > zipTaille ( NomArchive ) ALORS
         // Extraction de l'ensemble des fichiers de l'archive
         CodeErreurExtrait = zipExtraitTout ( NomArchive , zipRépertoire )
         // Message d'erreur si les fichiers n'ont pas été extraits
         SI CodeErreurExtrait <> 0 ALORS
            Erreur ( zipMsgErreur ( CodeErreurExtrait ))
         FIN
      SINON
         // Pas assez d'espace disque disponible
         Info ( "Pas assez de place pour extraire les fichiers" )
      FIN
   FIN
SINON
   // Affichage du message d'erreur si l'archive n'a pas été ouverte
   Erreur ( zipMsgErreur ( CodeErreurOuvre ))
FIN