DOCUMENTATION EN LIGNE
DE WINDEVWEBDEV ET WINDEV MOBILE

Aide / WLangage / Fonctions WLangage / Fonctions standard / Fonctions de gestion des archives
  • Découpage d'une archive
zipDécoupe (Exemple)
Découpage d'une archive
WEBDEV - Code ServeurAjax
Le code suivant permet de découper une archive. Chaque sous-archive sera copiée sur une disquette. La taille des sous-archives sera donc de 1,4 Mo. L'archive originale n'est pas détruite lors du découpage. Un espace de 100 Ko est réservé sur la première disquette.
// Déclaration et initialisation des variables
CodeErreurCréation est un entier
CodeErreurAjout est un entier
CodeErreurDécoupe est un entier
NbPartieNécessaire est un entier
 
// Création d'une archive
CodeErreurCréation = zipCrée("MonArchive", "C:\MesArchives\MonArchive.zip")
 
SI CodeErreurCréation = 0 ALORS
// Ajout de fichiers dans cette archive
CodeErreurAjout = zipAjouteRépertoire("MonArchive", ...
"C:\MonRép\MesFichiers", Vrai, zipRépertoire)
SI CodeErreurAjout = 0 ALORS
// Nombre de disquettes nécessaires
NbPartieNécessaire = zipNbPartieNécessaire("MonArchive", ...
1400*1024)
  Info(NbPartieNécessaire + "disquettes sont nécessaires")
// Découpage de l'archive
CodeErreurDécoupe = zipDécoupe("MonArchive", ...
"A:\Archive.WDZ", 1400*1024, Faux, 100*1024)
// Affichage du message d'erreur
// si l'archive n'a pas été découpée
SI CodeErreurDécoupe <> 0 ALORS
 Erreur(zipMsgErreur(CodeErreurDécoupe))
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