DOCUMENTATION EN LIGNE
DE WINDEVWEBDEV ET WINDEV MOBILE

Aide / WLangage / Fonctions WLangage / Fonctions standard / Fonctions de gestion des archives
  • Exemple 1 : Affichage d'informations sur un fichier d'une archive selon son indice
  • Exemple 2 : Affichage d'informations sur un fichier d'une archive selon son chemin
zipInfoFichier (Exemple)
Exemple 1 : Affichage d'informations sur un fichier d'une archive selon son indice
Etats et Requêtes Le code suivant permet d'afficher des informations sur un fichier d'une archive. Le fichier dont les informations sont affichées est sélectionné dans un champ Table mémoire (TABLE_TableArchive). Attention : Pour que l'indice de la table mémoire corresponde à l'indice du fichier sélectionné, le champ Table mémoire ne doit pas être trié.
// Déclaration et initialisation des variables
sNomRépertoire est une chaîne
sNomArchive est une chaîne = "MonArchive"
nCodeErreurCréation est un entier
nCodeErreurAjout est un entier
sInfoFichier est une chaîne
nIndiceFichier est un entier
 
// Création d'une archive
nCodeErreurCréation = zipCrée(sNomArchive, "C:\Répertoire\Archives\ArchivePdf.zip")
 
SI nCodeErreurCréation = 0 ALORS
 
// Sélection du répertoire
sNomRé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
nCodeErreurAjout = zipAjouteRépertoire(sNomArchive, sNomRépertoire, Vrai, zipRépertoire)
SI nCodeErreurAjout = 0 ALORS
  // Sélection du fichier de l'archive
  nIndiceFichier = TableSelect(TABLE_TableArchive)
  // Renvoie des informations du fichier sélectionné
  sInfoFichier = zipInfoFichier(sNomArchive, nIndiceFichier)
  // Affichage des informations
  SI sInfoFichier <> "" ALORS
  Info("Les informations du fichier sont : " + sInfoFichier)
  FIN
SINON
  // Affichage du message d'erreur si les fichiers n'ont pas été ajoutés
  Erreur(zipMsgErreur(nCodeErreurAjout))
  FIN
SINON
// Affichage du message d'erreur si l'archive n'a pas été créée
Erreur(zipMsgErreur(nCodeErreurCréation))
FIN
Exemple 2 : Affichage d'informations sur un fichier d'une archive selon son chemin
Etats et Requêtes Le code suivant permet d'afficher des informations sur un fichier d'une archive. Le fichier dont les informations sont affichées est sélectionné suivant son chemin mémorisé. Les informations du fichier sont intégrées dans un champ Table mémoire (TABLE_TableInfo).
// Déclaration et initialisation des variables
sNomArchive est une chaîne = "MonArchive"
sNomRépertoire est une chaîne
nCodeErreurCréation est un entier
nCodeErreurAjout est un entier
sInfoFichier est une chaîne
 
// Création d'une archive
nCodeErreurCréation = zipCrée(sNomArchive, "C:\Répertoire\Archives\ArchivePdf.zip")
 
SI nCodeErreurCréation = 0 ALORS
// Sélection du répertoire
sNomRé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
nCodeErreurAjout = zipAjouteRépertoire(sNomArchive, sNomRépertoire, Vrai, zipRépertoire)
SI nCodeErreurAjout = 0 ALORS
// Renvoie des informations d'un fichier
  sInfoFichier = zipInfoFichier(sNomArchive, "C:\Documents\Fichier.txt")
  SI sInfoFichier <> "" ALORS
TableAjoute(TABLE_TableInfo, sInfoFichier)
  FIN
SINON
  // Affichage du message d'erreur si les fichiers n'ont pas été ajoutés
  Erreur(zipMsgErreur(nCodeErreurAjout))
FIN
SINON
// Affichage du message d'erreur si l'archive n'a pas été créée
Erreur(zipMsgErreur(nCodeErreurCré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