Discussion :

[DJBORIE]

Bonjour,

Dans le cadre d'une application ACCESS/VBA, je suis amené à devoir afficher l'ensemble des fichiers contenus dans un fichier .ZIP (ceci doit être intégré dans mon formulaire).
Je cherche donc a récupérer tous les fichiers contenus dans ce .ZIP (sans avoir à le décompresser).
J'ai déjà essayé de regarder zlib, une librairie de compression/decompression, mais je ne trouve pas de codes permettant de lister les fichiers. De plus, je ne sais pas si c'est compatible VBA.

Merci

[Arkham46]

bonjour,

- oui ça marche en VBA
- les classes VB qui facilitent l'utilisation de la dll sont dans la FAQ
- il n'y a pas de fonction pour lister les fichiers mais il "suffit" de modifier la fonction d'extraction pour renvoyer la liste sans extraire les fichiers.
- pourquoi un nouveau message au lieu de poursuivre sur l'ancien?

[FreeAccess]

Bonjour,
De plus as-tu au moins essayé le code figurant sur ce même post..
Car avec ceci tu pourras obtenir ce que tu souhaite Lister les fichiers contenus dans un Zip.

Cette librairie utilise également une librairie FreeWare nommée Xzip.dll qui doit être présente dans le dossier c:\windows\system32. vous devez la télécharger à partir du site: http://xstandard.com/download.asp

[DJBORIE]

Bonjour,

Après avoir importer les différentes classes de la FAQ, je cherche maintenant à inclure le fichier zlib.dll dans mon projet.
Même après l'avoir placé dans le répertoire de mon projet, ACCESS m'affiche "53 : Fichier introuvable : zlib.dll"

Merci

[Arkham46]

Pour que ça fonctionne avec la dll dans le répertoire de l'application, il faut mieux charger explicitement la dll.

Ajoutez une déclaration dans l'en-tête du module de classe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long

Et à l'initialisation de la classe, chargez la dll :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Class_Initialize()
LoadLibrary CurrentProject.Path & "\zlib.dll"
End Sub

[DJBORIE]

Bonjour,
Je rencontre des difficultés en utilisant la fonction : "FileRemoveFromZip".
Lorsque la portion de code suivante s'exécute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
ZipClose
Kill strZipPath
Name strZipPath & "~" As strZipPath

impossible de faire un "kill" du fichier, car il est utilisé par l'application.

Peut-être que cela vient de la façon dont je l'utilise ...

Merci