Probléme de dezzipage

Question

Bonjour,

Je souhaiterais pouvoir dézipper un fichier présent dans une archive 7zip protégée par un mot de passe. Voici mon code :


----------------------------------------------------------------

    Declare Function OpenProcess Lib "kernel32" _
                             (ByVal dwDesiredAccess As Long, _
                              ByVal bInheritHandle As Long, _
                              ByVal dwProcessId As Long) As Long

    Declare Function GetExitCodeProcess Lib "kernel32" _
                                        (ByVal hProcess As Long, _
                                         ByVal lpExitCode As Long) As Long

    Public Const PROCESS_QUERY_INFORMATION = &H400
    Public Const STILL_ACTIVE = &H103

    Public Sub ShellAndWait(ByVal PathName As String)

        Dim hProg As Long
        Dim hProcess As Long, ExitCode As Long

        hProg = Shell(PathName)
        hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, hProg)
        Do
            GetExitCodeProcess(hProcess, ExitCode)
        Loop While ExitCode = STILL_ACTIVE
    End Sub

-----------------------------------------------------------------------------

  Sub Dezipper()

        Dim CheminZip As String
        Dim DossierUnZip As String
        Dim FichierZip As Object, ShellStr As String

        CheminZip = "C:\program files\7-Zip"

        DossierUnZip = "C:"
        FichierZip = "C:\ok.7z"
        ShellStr = CheminZip & "7z.exe x -aoa -r" _
                 & " " & Chr(34) & FichierZip & Chr(34) _
                 & " -o" & Chr(34) & DossierUnZip & Chr(34) & " " & "*.*"

        ShellAndWait(ShellStr)

End Sub

--------------------------------------------------------------------------

Ce programme dézippe bien mon fichier mais lorsque l'archive est protégée par un mot de passe, ce bout de code s'execute mais le fichier ne se dezippe pas. Pouvez-vous m'aider?

cs_Julien39 · Answer

Salut,

tu peux utilise l'option -ppassword pour dézipper ton fichier.

cs_Jack · Answer

Si c'est du VB.Net (catégorie), tes déclarations d'appels des APIs ne sont pas correctes (Long --> Integer).
Étonnant que cela fonctionne.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Probléme de dezzipage

2 réponses

Votre réponse