Comment compresser des fichiers en utilisant vba

Ouvrez Microsoft Access (2000 ou plus tard) et de créer une nouvelle base de données appelée ZipSample.

Créer un nouveau formulaire indépendant appelé ZipForm. Cette forme n`a pas de table qui lui est associée. Au lieu de cela, il acceptera dossier et de fichier zip noms indexés par l`utilisateur puis zip les fichiers lorsque le bouton est cliqué.

Ajouter deux zones de texte et un bouton sur le formulaire.

Nommez la première zone de texte "nom de dossier" et lui donner la légende "Dossier:"

Nom de la deuxième zone de texte "Fichier zip" et lui donner la légende "Fichier zip:"

Changer l`étiquette sur le bouton pour "Zip *: français."

Faites un clic droit sur le bouton Zip et choisissez Générer suivi par CODE. Cela va ouvrir la fenêtre Visual Basic avec une nouvelle méthode vide. A l`intérieur du corps de la méthode (sur la ligne vide au-dessus End Sub) entrez le code suivant:

COQUILLE """c: Program Files WinZip WinZip32"" --min --a -r " & Fichier zip & " " & Nom de dossier & "* *."

Lorsque évalué par l`interpréteur VBA, ce code va passer le texte suivant à l`interpréteur de commandes:

"c: Program Files WinZip WinZip32" --min --a -R zipfile.zip folderName *. *

WinZip peut fonctionner avec un certain nombre de paramètres de ligne de commande. Dans ce cas, la commande demande WinZip pour ajouter tous les fichiers dans le dossier folderName à l`archive zipFile.zip. L`argument --min dit WinZip pour run minimisée (en arrière-plan), -a indique qu`il est d`ajouter des fichiers à l`archive et -R indique que tous les fichiers de sous-dossiers dans ce dossier doivent également être ajoutés. Voir le site WinZip (voir Ressources) pour les options de ligne de commande et la liste complète des arguments de ligne de commande.

Enregistrer et fermer la fenêtre Visual Basic, enregistrez le formulaire puis passer à former vue. La forme apparaît avec les deux zones de texte et un bouton. Remplissez le formulaire et cliquez sur le bouton Zip pour tester la forme.