DOCUMENTATION EN LIGNE
DE WINDEV, WEBDEV ET WINDEV MOBILE
Aide / WLangage / Fonctions WLangage / Fonctions standard / Fonctions de gestion des archives
  • Exemple 1 : Extraction d'un fichier de l'archive selon son indice
  • Exemple 2 : Extraction d'un fichier selon son chemin avec affichage d'une jauge
zipExtraitFichier (Exemple)
Exemple 1 : Extraction d'un fichier de l'archive selon son indice
WEBDEV - Code ServeurAjax Le code suivant permet d'extraire et de décompresser un fichier d'une archive. Le chemin mémorisé des fichiers comprend : le nom des répertoires, le nom et l'extension du fichier (constante zipRépertoire). Le fichier extrait est copié sur une disquette ("A:\Archive"). Le fichier à extraire est sélectionné dans un champ Table par programmation (TABLE_TableArchive).
Attention : Pour que l'indice du champ Table par programmation corresponde à l'indice du fichier sélectionné, le champ Table par programmation ne doit pas être trié.
// 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
CodeErreurExtrait est un entier
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 et décompression du fichier sélectionné
    // Copie du fichier extrait
    CodeErreurExtrait = zipExtraitFichier(NomArchive, IndiceFichier, "C:\Temp\Archive")
SI CodeErreurExtrait <> 0 ALORS
Erreur(zipMsgErreur(CodeErreurExtrait))
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
Exemple 2 : Extraction d'un fichier selon son chemin avec affichage d'une jauge
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