|
|
|
|
|
|
|
|
|
|
- Renvoie de la liste des fichiers présents dans une archive
zipListeFichier (Exemple)
Renvoie de la liste des fichiers présents dans une archive Le code suivant permet d'afficher la liste des fichiers d'une archive dans un champ Table par programmation (TABLE_FichierArchive). // Déclaration et initialisation des variables
NomArchive est une chaîne = "MonArchive"
NomRépertoire est une chaîne
UneListeDeFichiers est une chaîne
CodeErreurCréation est un entier
CodeErreurAjout est un entier
Â
// Création d'une archive
CodeErreurCréation = zipCrée(NomArchive, "C:\Répertoire\Archives\ArchivePdf.zip")
Â
// Création d'une archive (WINDEV Mobile)
// CodeErreurCréation = zipCrée(NomArchive, "\Répertoire\Archives\ArchivePdf.wdz")
Â
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, zipRépertoire)
SI CodeErreurAjout = 0 ALORS
// Renvoie de la liste des fichiers de l'archive
UneListeDeFichiers = zipListeFichier(NomArchive)
// Affiche la liste des fichiers dans un champ Table par programmation
 TableAjoute(TABLE_FichierArchive, UneListeDeFichiers)
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
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|