Le Runtime Access 2007 français est disponible

Cette librairie (RS_ZIP)est utilisée pour compresser des fichiers dans un dossier archives de type Zip  et pour décompresser un dossier archives 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

Télécharger la librairie xZip

Aller sur le site http://xstandard.com/download.asp .

Indiquez votre adresse mail (deux fois).
Sélectionner le produit ZipComponent.
Cliquez sur le bouton Submit.

Vous allez recevoir un mail vous indiquant l'adresse où se trouve la librairie à télécharger, comme ci-dessous:

Thank you for requesting XStandard Lite XHTML WYSIWYG Editor. You can download it at the following URL: http://xstandard.com/get/abcdefg/lite/  
Online documentation is available by selecting Documentation from the top menu at http://xstandard.com Free technical support is available at support@xstandard.com
We hope XStandard meets your development needs and encourage your feedback and suggestions.
Thank you,
XStandard Support

Cliquer sur le lien indiqué et télécharger la librairie (fichier x-zip.zip).
Décompresser le fichier x-zip.zip et placer le fichier xzip.dll dans le dossier c:\windows\system32.
Le référencer dans la base de registre: cliquer démarrer, exécuter, tapez  regsvr32 c:\windows\system32\xzip.dll  et cliquez sur OK

Télécharger la librairie RS_Zip

Cliquer ici pour télécharger la librairie RS_Zip.

Décompresser le fichier RS_Zip.zip et placer le fichier RS_Zip.dll dans le dossier c:\windows\system32.
Le référencer dans la base de registre: cliquer démarrer, exécuter, tapez  regsvr32 c:\windows\system32\RS_Zip.dll  et cliquez sur OK

Utilisation de la librairie RS_Zip

Vous devez référencer cette librairie dans votre base de données Access par le menu outils / références et sélectionnez-la dans la liste sous le nom "SENEQUE Raymond Compression/décompression".
 

Option Explicit
Option Compare Database
Dim objZip As New Zip

Private Sub Commande0_Click()
    objZip.Compresser "F:\Mes Documents sur Data\*.xls", "F:\Archives\MonFichier.zip", True
    objZip.Compresser "F:\Mes Documents sur Data\*.doc", "F:\Archives\MonFichier.zip", True
    objZip.Décompresser "F:\Archives\MonFichier.zip", "F:\MonDossier\", True
    Me.Liste1.RowSource = objZip.ContenuGlobal("F:\Archives\MonFichier.zip", True)
    Me.Liste2.RowSource = objZip.Contenu("F:\Archives\MonFichier.zip", True)
    Me.Texte1 = objZip.Nombre("F:\Archives\MonFichier.zip", True)
End Sub

Vous avez sept fonctions à votre disposition, Compresser des fichiers, Décompresser un fichier zip, obtenir le nombre de fichier contenus, obtenir la liste simplifiée des fichiers, obtenir la liste complète des fichiers, obtenir le code de bonne exécution et la description des erreurs éventuelles

Dans votre module, déclarez l'objet Zip comme ceci dans les déclaratives:

                                Dim objZip As New Zip

Compresser des fichiers

    objZip.Compresser "F:\Mes Documents sur Data\*.xls", "F:\Archives\MonFichier.zip", True
 

Le premier paramètre indique les fichiers à compresser et le deuxième le nom du fichier zip à créer ou à utiliser. Si le fichier zip est inconnu, il est créé automatiquement sans avertissement.
Le troisième indique par True ou False si Access doit afficher un message en cas d'erreur.
La librairie retourne la valeur True en cas de bonne exécution et False en cas d'erreur.

Exemple:

 If Not objZip.Compresser("F:\Mes Documents sur Data\*.xls", "F:\Archives\excel.zip", True) Then GoTo Lerreur
 

Décompresser un fichier Zip

    objZip.Décompresser "F:\Archives\MonFichier.zip", "F:\MonDossier\", True
 

Le premier paramètre indique le nom du fichier Zip et le deuxième le nom du dossier cible vers lequel placer les fichiers décompressés.
Le troisième indique par True ou False si Access doit afficher un message en cas d'erreur.
La librairie retourne la valeur True en cas de bonne exécution et False en cas d'erreur.

Exemple:

 If Not objZip.Décompresser("F:\Archives\MonFichier.zip", "F:\MonDossier\", True) Then GoTo Lerreur
 

Obtenir la liste complète des fichiers contenus dans le Zip

Me.Liste1.RowSource = objZip.ContenuGlobal("F:\Archives\MonFichier.zip", True)

Le premier paramètre indique le nom du fichier Zip et le deuxième indique par True ou False si Access doit afficher un message en cas d'erreur.
La librairie retourne la liste des fichiers avec quatre propriétés par fichier, séparées par des ; (point-virgule).

Date
Nom
Taille
Type

La valeur retournée sera généralement placée dans le contenu d'un contrôle liste de formulaire dont les propriétés sont les suivantes:

Nombre de colonnes : 4
Entêtes colonnes: Oui
Largeur colonnes: 3cm;5cm;2cm;1cm
 

Obtenir la liste simplifiée des fichiers contenus dans le Zip

Me.Liste2.RowSource = objZip.Contenu("F:\Archives\MonFichier.zip", True)

Le premier paramètre indique le nom du fichier Zip et le deuxième indique par True ou False si Access doit afficher un message en cas d'erreur.
La librairie retourne la liste des fichiers avec une seule propriétés par fichier, séparées par des ; (point-virgule).

Nom
 

La valeur retournée sera généralement placée dans le contenu d'un contrôle liste ou combobox de formulaire dont les propriétés sont les suivantes:

Nombre de colonnes : 1
Entêtes colonnes: Oui
Largeur colonnes: 5cm
 

Obtenir le nombre de fichiers contenus dans le Zip

Me.Texte1 = objZip.Nombre("F:\Archives\MonFichier.zip", True)

Le premier paramètre indique le nom du fichier Zip et le deuxième indique par True ou False si Access doit afficher un message en cas d'erreur.
La librairie retourne un numérique de type Long.
 

Obtenir le code de l'erreur d'exécution

Si la fonction retourne une erreur, vous pouvez connaître le code de cette erreur par la fonction:

<Variable type Long> = objZip.ErreurCode()
 

Obtenir la description de l'erreur d'exécution

Si la fonction retourne une erreur, vous pouvez connaître la description de cette erreur par la fonction:

<Variable type String> = objZip.ErreurDescription()