¿Como Extraer Archivo .zip con Barra de progreso?

[Cholo5247]

Muchas Gracias :D me funciono, excelente.

Iniciado por Drako_18

Buenas compañero!

Pues IONIC no es parte de .Net, y es lo que estás usando para los archivos zip.
Algo como eso procura mencionarlo! :)
Me lo he bajado y he copiado tu código inicial...
Después he aplicado lo que te pasé por aquí al código que dejaste y el resultado es éste:

Código vb:

'Extrae Zip'
        Dim ZipAExtraer As String = "C:\temp\aaa.zip"
        Dim DirectorioExtraccion As String = "C:\temp\aaa"
 
        Using zip1 As ZipFile = ZipFile.Read(ZipAExtraer)
            Dim lstEntradas As List(Of ZipEntry) = zip1.OrderBy(Function(x) x.UncompressedSize).ToList()
            Dim lSizeTotal As Long = 0
            Dim lInicial As Long = 0
 
            lstEntradas.ForEach(Sub(x) lSizeTotal += x.UncompressedSize)
 
            ProgressBar1.Minimum = 0
            ProgressBar1.Maximum = lSizeTotal
            ProgressBar1.Value = 0
 
            For Each e As ZipEntry In lstEntradas
                lInicial = (e.UncompressedSize * 10) / 100 '10%
                ProgressBar1.Value += lInicial
                e.Extract(DirectorioExtraccion, ExtractExistingFileAction.OverwriteSilently)
                ProgressBar1.Value += e.UncompressedSize - lInicial '100% del archivo
            Next
        End Using
 

Espero que te sea útil... Un saludo compañero!!!