DOCUMENTATION EN LIGNE
DE WINDEVWEBDEV ET WINDEV MOBILE

Aide / WLangage / Fonctions WLangage / Fonctions standard / Fonctions de gestion des archives
  • Extraction du chemin d'un fichier de l'archive
zipExtraitChemin (Exemple)
Extraction du chemin d'un fichier de l'archive
WINDEVCode Utilisateur (MCU)
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 (TABLE_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(TABLE_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
Version minimum requise
  • Version 9
Documentation également disponible pour…
Commentaires
Cliquez sur [Ajouter] pour publier un commentaire

Dernière modification : 25/05/2022

Signaler une erreur ou faire une suggestion | Aide en ligne locale