DOCUMENTATION EN LIGNE
DE WINDEV, WEBDEV ET WINDEV MOBILE
Aide / WLangage / Fonctions WLangage / Fonctions standard / Fonctions de gestion des archives
  • Calcul de la taille des fichiers à extraire d'une archive
Calcul de la taille des fichiers à extraire d'une archive
WINDEVWindowsCode Utilisateur (MCU) Le code suivant permet de vérifier que l'espace disque disponible est suffisant pour extraire tous les fichiers présents dans une archive. Pour cela, la taille non-compressée de l'ensemble des fichiers présents dans une archive est comparée à l'espace disque disponible (fDisqueInfo).
// Déclaration et initialisation des variables
NomArchive est une chaîne = "MonArchive"
CodeErreurOuvre est un entier
CodeErreurExtrait est un entier
TailleDisque est un réel

// Ouverture d'une archive
CodeErreurOuvre = zipOuvre(NomArchive, "C:\Répertoire\Archives\ArchivePdf.wdz")

SI CodeErreurOuvre = 0 ALORS
// Extraction des fichiers de l'archive
SI OuiNon("Voulez-vous extraire tous les fichiers de l'archive ?") ALORS
// Calcul de l'espace disque disponible
TailleDisque = fDisqueInfo("C:\Temp", fdEspaceLibre)
// L'espace disque est-il suffisant ?
SI TailleDisque > zipTaille(NomArchive) ALORS
// Extraction de l'ensemble des fichiers de l'archive
CodeErreurExtrait = zipExtraitTout(NomArchive, zipRépertoire)
// Message d'erreur si les fichiers n'ont pas Ã©té extraits
SI CodeErreurExtrait <> 0 ALORS
Erreur(zipMsgErreur(CodeErreurExtrait))
FIN
SINON
// Pas assez d'espace disque disponible
Info("Pas assez de place pour extraire les fichiers")
FIN
FIN
SINON
// Affichage du message d'erreur si l'archive n'a pas Ã©té ouverte
Erreur(zipMsgErreur(CodeErreurOuvre))
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