VBA dezipper des zip contenants des sous repertoire et des zip

Signaler
Messages postés
1
Date d'inscription
vendredi 27 septembre 2013
Statut
Membre
Dernière intervention
27 septembre 2013
-
Messages postés
14743
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
4 décembre 2020
-
Bonjour,
j ai des fichiers zip à decompresser. Il contiennent des fichiers, des repetoires et des zips. (zip dans le zip)
C est là qu'est ma diffculté.
en VBA, comment faire pour tout dezipper y compris les zip qui sont dans le zip.
le code suivant ne traite pas les zip contenu dans le zip initial.


Sub MYUnZip(strTargetPath As String, Fname As Variant)
Dim oApp As Object
Dim FileNameFolder As Variant
If Not (RepertoireExiste(strTargetPath)) Then
MkDir (strTargetPath)
Else
MsgBox "Le répertoire : " & Chr(10) & Chr(10) & strTargetPath & Chr(10) & Chr(10) & _
"existe déjà. Merci de le supprimer."
Exit Sub
End If
FileNameFolder = strTargetPath
Set oApp = CreateObject("Shell.Application")

oApp.NameSpace(FileNameFolder).CopyHere oApp.NameSpace(Fname).Items
End Sub

merci par avance pour vos lumières

1 réponse

Messages postés
14743
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
4 décembre 2020
148
Bonjour,

Je dirais après avoir extrait le premier zip, tu regardes dans le dossier pour voir si il y a d'autres zip à décompresser, et ainsi de suite.

On peut discuter avec celui qui sait.
On peut discuter avec celui qui ne sait pas.
On ne peut pas discuter avec celui qui croit savoir.
En VB.NET pensez à activer "Option Explicit" et "Option Strict"