Exemple d'utilisation de la commande zipExtraitChemin

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 le chemin d'un fichier d'une archive. Le fichier dont le chemin est extrait est sélectionné dans une table mémoire (TableArchive). Le chemin mémorisé des fichiers comprend : le nom des répertoires, le nom et l'extension du fichier. La fonction zipExtraitChemin renvoie le nom et l'extension du fichier.

// Déclaration et initialisation des variables
NomRépertoire est une chaîne
NomArchive est une chaîne = "MonArchive"
CodeErreurCréation est un entier
CodeErreurAjout est un entier
CheminExtrait est une chaîne
IndiceFichier est un entier

// Création d'une archive
CodeErreurCréation = zipCrée ( NomArchive , "C:\Répertoire\Archives\ArchivePdf.wdz" )
SI CodeErreurCréation = 0 ALORS
    // Sélection du répertoire
    NomRépertoire = fRepSélecteur ( "" , "" , "Répertoire à ajouter" )
    // Ajoute la totalité des fichiers du répertoire sélectionné
    // et de ses sous-répertoires dans l'archive
    CodeErreurAjout = zipAjouteRépertoire ( NomArchive , NomRépertoire , Vrai , zipRépertoire )
    SI CodeErreurAjout = 0 ALORS
       / / Sélection du fichier de l'archive
       IndiceFichier = TableSelect ( TableArchive )
       // Extraction du fichier sélectionné
       CheminExtrait = zipExtraitChemin ( NomArchive , ...
                                  IndiceFichier , zipFichier + zipExtension )
       // Affichage du chemin extrait
       SI CheminExtrait <> "" ALORS
           Info ( "Le nom et l'extension du fichier sont : " + CheminExtrait )
       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