Decompression avec 7Zip

  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