Script de décompression vb
Bonsoir,
Voila je me suis lancé dans une application en vb qui me sert à mettre à jour un logiciel.
Sur google j'ai trouver pas mal de script mais étant débutant en vb je ne sais pas quoi importer pour faire le faire fonctionner donc je me retrouve avec des erreurs du type :
Type 'Shell' non défini
'xrDec' n'est pas déclaré
etc etc...
Le script de la FAQ me fait une erreur que l'entête n'est pas bonne. Donc la je me remet à vous pour m'aider à faire fonctionner un script.
J'ai un fichier maj.zip avec plusieurs fichier et sous dossier que je dois extraire.
J'ai trouver ce script mais ne sait pas quoi importer :
Code:
1
2
3
4
5
6
7
8
9
| Dim osa As Shell
xrDec = <répertoire de décompression>
nfCom = <chemin et nom du fichier à décompresser>
Set osa = New Shell
' Nombre de fichiers à extraire
nbFic = osa.Namespace(nfCom).Items.Count
' Décompression des fichiers
osa.Namespace(xrDec).CopyHere osa.Namespace(nfCom).Items
Set osa = Nothing |
Ou comment importer Zlib de Zipextractor.cls à mon projet.
Merci d'avoir lu,
Bonne soirée.
