Decompression avec 7Zip

Signaler
Messages postés
6
Date d'inscription
lundi 2 septembre 2019
Statut
Membre
Dernière intervention
2 février 2020
-
Reivax962
Messages postés
3571
Date d'inscription
jeudi 16 juin 2005
Statut
Membre
Dernière intervention
20 février 2020
-
Bonjour tout le monde,

J'ai 4 dossiers zippés ".zip" à décompressé en utilisant 7 zip sur vb.net mais ça ne marche pas.

Quelqu'un sait où est l'erreur?

Merci d'avance.

  Sub Decompression(ByVal LogFile As StreamWriter)
        Dim exePath As String = "C:\Program Files\7-Zip\7z.exe"
        Dim args As String = Nothing
        For i As Integer = FileName.GetLowerBound(0) To FileName.GetUpperBound(0)
            If FileName(i).Contains(".zip") Then
                args = "e " & FileName(i) & " -o" & MyDataFile & " -aoa"
                System.Diagnostics.Process.Start(exePath, args)
                '
                '   Destruction du fichier compressé rapatrié 
                '
                'If My.Computer.FileSystem.FileExists(FileName(i)) Then
                '    My.Computer.FileSystem.DeleteFile(FileName(i))
                'End If
            End If
        Next i

    End Sub

1 réponse

Messages postés
3571
Date d'inscription
jeudi 16 juin 2005
Statut
Membre
Dernière intervention
20 février 2020
933
Bonjour,

Tu dis que « ça ne marche pas ». C'est un exposé un peu court du problème ; as-tu une exception, un message d'erreur ? Le processus 7z est-il lancé ou non ? Des choses s'affichent en debug dans la fenêtre « output » de visual studio ?
Et si tu récupères les valeurs de exePath et de args, et que tu les copies-colles dans une fenêtre CMD, qu'est-ce que tu obtiens ?

Xavier