DOCUMENTATION EN LIGNE
DE WINDEV, WEBDEV 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
WEBDEV - Code ServeurAjax 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
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