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 :
Ou comment importer Zlib de Zipextractor.cls à mon projet.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci d'avoir lu,
Bonne soirée.
Partager