Discussion :

[_xme_]

Bonjour
Merci d'avance pour votre attention
Désolé si la question a déjà été posé mais j'ai réellement cherché .
Que ce soir google ou sur les outils de recherche la plupart des résultats, je n'ai pas réussi à adapter le résultat de mes recherches.
Pourtant j'en ai trouvé
lien
lien
lien
lien

mon besoin est simple:
Je veux zipper ou dezipper un fichier en vbs sans installer un quelconque logiciel.
Je suis sous windows XP
Après tout mes recherches, il me semble qu'il y a 1 possibilité :
- passer par une sorte d'api windows "WMIService"

mais après tout mes test je n'ai pas réussi à dézipper quoi que ce soit.
Sauf erreur de ma part ceci ne peut dezipper qu'un dossier, or je veux dezipper un fichier ce qui pourrait peut-être expliquer ma difficulté.

le code proposé dans la faq est dans le cas d'une compression de repertoire, or je cherche une décompression de fichier et je n'arrive pas à comprendre comment adapter
Merci d'avance pourt tout aide apporté

[EDIT]
Le code que j'avais toruvé le plus simple m'avait amené à penser que ce qui suit devrait marcher, mais j'obtiens encore l'erreur "objet requis: osa.Namespace(..)"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Set FSCopie = CreateObject("Scripting.FileSystemObject") 
Set Fichier = FSCopie.GetFile("Monfichier.zip")
DossierZip=Fichier.ParentFolder & "Monfichier.zip"
DossierDezip = Fichier.ParentFolder
msgbox "dossier zip=" & DossierZip & "dezip =" & DossierDezip    
Set osa = CreateObject("Shell.Application" )
' Nombre de fichiers à extraire 
    nbFic = osa.Namespace(DossierZip).Items.Count 
' Décompression des fichiers 
    osa.Namespace(DossierDezip).CopyHere osa.Namespace(DossierZip).Items 
    Set osa = Nothing

EDIT2:
Juste par curiosité quel est la différence entre WScript.Shell et Shell.Application ?

[_xme_]

petit up de mon sujet.
je cherche toujours
Sinon je suis aussi preneur d'une doc sur les objet Activex en particulier Shell.Application, je n'ai rien trouvé sur ces propriétés....

[SfJ5Rpw8]

il te manque un \

Code :

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

DossierZip=Fichier.ParentFolder & "\Monfichier.zip"

[_xme_]

Et pourtant j'avais fait une message box pour vérifier la valeur des variables
Merci beaucoup bbil

Juste 2 petites questions :
- existe-t-il une "bibliotheque" des object activex et leur propriété
(j'aimerais en savoir plus sur les Wscript.shell et Shell.Application)
- comment peut-on enlever les alertes de copies?
histoire d'écraser en force?

Merci beaucoup