VBA dezipper des zip contenants des sous repertoire et des zip

Question

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

NHenry · Answer

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"

VBA dezipper des zip contenants des sous repertoire et des zip

1 réponse

Votre réponse

Discussions similaires