DOCUMENTATION EN LIGNE
DE WINDEVWEBDEV ET WINDEV MOBILE

Aide / WLangage / Fonctions WLangage / Fonctions standard / Fonctions de gestion des archives
  • Exemple 1 : Ajoute le totalité des fichiers d'un répertoire et de ses sous-répertoires dans une archive
  • Exemple 2 : Ajoute la totalité des fichiers d'un répertoire dans une archive avec utilisation d'une jauge
zipAjouteRépertoire (Exemple)
Exemple 1 : Ajoute le totalité des fichiers d'un répertoire et de ses sous-répertoires dans une archive
WINDEVWEBDEV - Code ServeurCode Utilisateur (MCU)Ajax Le code suivant permet d'ajouter la totalité des fichiers d'un répertoire et de ses sous-répertoires dans une archive. Le répertoire est sélectionné par l'utilisateur grâce à la fonction fRepSélecteur. Le chemin complet du fichier est mémorisé dans l'archive.
// 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
 
// Création d'une archive
CodeErreurCréation = zipCrée(NomArchive, "C:\MonRépertoire\MesArchives\ArchivePdf.wdz")
 
// Affichage du message d'erreur si l'archive n'a pas été créée
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, zipDisque)
 
// Affichage du message d'erreur si les fichiers n'ont pas été ajoutés
SI CodeErreurAjout <> 0 ALORS
 Erreur(zipMsgErreur(CodeErreurAjout))
FIN
SINON
Erreur(zipMsgErreur(CodeErreurCréation))
FIN
Exemple 2 : Ajoute la totalité des fichiers d'un répertoire dans une archive avec utilisation d'une jauge
WINDEVCode Utilisateur (MCU) Le code suivant permet d'ajouter la totalité des fichiers d'un répertoire dans une archive. Le répertoire est sélectionné par l'utilisateur grâce à la fonction fRepSélecteur. Les différents répertoires composant le chemin du fichier, son nom et son extension sont mémorisés dans l'archive. Une jauge permet d'indiquer le pourcentage de compression. Cette jauge sera affichée dans la barre de message.
// -- Déclarations globales de la fenêtre
GLOBAL
NomArchive est une chaîne = "MonArchive"
// -- Clic sur BTN_AjoutRépertoire
// Initialisation des variables
NomRépertoire est une chaîne
CodeErreurCréation est un entier
CodeErreurAjout est un entier
 
// Création d'une archive
CodeErreurCréation = zipCrée(NomArchive, "C:\MonRépertoire\MesArchives\ArchivePdf.wdz")
 
// Affichage du message d'erreur si l'archive n'a pas été créée
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é dans l'archive
CodeErreurAjout = zipAjouteRépertoire(NomArchive, NomRépertoire, Faux, zipRépertoire, ...
zipAjouteRépertoire_Callback, zipAjouteRépertoireJauge_Callback)
// Affichage du message d'erreur si le fichier n'a pas été ajouté
SI CodeErreurAjout <> 0 ALORS
Erreur(zipMsgErreur(CodeErreurAjout))
FIN
SINON
Erreur(zipMsgErreur(CodeErreurCréation))
FIN
 
// Procédure permettant de sélectionner les fichiers
// Dans cet exemple, tous les fichiers sont pris en compte
PROCÉDURE INTERNE zipAjouteRépertoire_Callback(NomFichier est une chaîne)
RENVOYER Vrai
FIN
 
 
// Cette procédure permet de gérer la jauge.
PROCÉDURE INTERNE zipAjouteRépertoireJauge_Callback(FichierEnCours est une chaîne, ...
AvancementGlobal est un entier, AvancementFichier est un entier)
SI AvancementGlobal < 100 ALORS
Jauge(AvancementGlobal, 100, FichierEnCours)
// Rafraîchissement de la fenêtre
Multitâche(-1)
SINON
Jauge()
FIN
FIN
Version minimum requise
  • Version 9
Documentation également disponible pour…
Commentaires
Cliquez sur [Ajouter] pour publier un commentaire

Dernière modification : 05/05/2023

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