[SOLUCIONADO] ¿Como Extraer Archivo .zip con Barra de progreso?

[Cholo5247]

Buenas, necesito ayuda con un problema que no he encontrado solución,
soy un poco novato aquí, así que les explico.

Lo que quiero hacer es que al darle a un botón un archivo .zip se extraiga y muestre gráficamente cuanto falta en una barra de progreso. El código de extracción ya lo tengo:

'Extrae Zip'
Dim ZipAExtraer As String = Roaming & ("CMC\Space\System.zip")
Dim DirectorioExtraccion As String = TextBox1.Text
Using zip1 As ZipFile = ZipFile.Read(ZipAExtraer)
Dim e As ZipEntry
For Each e In zip1
e.Extract(DirectorioExtraccion, ExtractExistingFileAction.OverwriteSilently)
Next

End Using


Pero no encuentro la forma de conectarlo con la Barra de progreso, soy algo nuevo.
Por favor Necesito ayuda

Muchas Gracias.

[Drako_18]

Buenas compañero,

Prueba esto... (lo he modificado, porque el código que tu pusiste no me funcionó muy bien..)

Código vb:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sZipAExtraer As String = "C:\temp\aaa.zip"
        Dim sDirectorioExtraccion As String = "C:\temp\aaa"
        Dim oZip As ZipArchive = ZipFile.Open(sZipAExtraer, ZipArchiveMode.Read)
        Dim lSize As Long
        Dim lInicial As Long
        Dim lstEntradas As List(Of ZipArchiveEntry) = oZip.Entries.OrderBy(Function(x) x.Length).ToList()
 
        lstEntradas.ForEach(Sub(x)
                                lSize += x.Length
                            End Sub)
 
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = lSize
        ProgressBar1.Value = 0
 
        For Each ent As ZipArchiveEntry In lstEntradas
            lInicial = (ent.Length * 10) / 100 '10%
            ProgressBar1.Value += lInicial
            ent.ExtractToFile(sDirectorioExtraccion & "/" & ent.Name, True)
            ProgressBar1.Value += ent.Length - lInicial '100% del archivo
        Next
    End Sub
 

Te lo explico un poco...
1º) Ordeno la lista de entradas por tamaño (menor a mayor)
2º) Miro cuanto es el tamaño total (lSize)
3º) Recorro todas las entradas, de inicio, pongo un 10% del archivo como ya descomprimido, y una vez terminado, pongo el restante



Un saludo!!!

[Cholo5247]

Muchas Gracias por ayudar, pero tengo un problema a la hora de colocar el codigo.



Compo puedes observar me aparecen varios errorres y son como:
"Open no es un miembro de ZipFile"
"Length no es un miembro de ZipArchiveEntry"
"ExtracToFile no es un miembro de ZipArchiveEntry"
"Name no es un miembro de ZipArchiveEntry"

Los Imports que tengo son estos:


No se cual es el problema.
Gracias, y espero tu respuesta.

Iniciado por Drako_18

Buenas compañero,

Prueba esto... (lo he modificado, porque el código que tu pusiste no me funcionó muy bien..)

Código vb:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sZipAExtraer As String = "C:\temp\aaa.zip"
        Dim sDirectorioExtraccion As String = "C:\temp\aaa"
        Dim oZip As ZipArchive = ZipFile.Open(sZipAExtraer, ZipArchiveMode.Read)
        Dim lSize As Long
        Dim lInicial As Long
        Dim lstEntradas As List(Of ZipArchiveEntry) = oZip.Entries.OrderBy(Function(x) x.Length).ToList()
 
        lstEntradas.ForEach(Sub(x)
                                lSize += x.Length
                            End Sub)
 
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = lSize
        ProgressBar1.Value = 0
 
        For Each ent As ZipArchiveEntry In lstEntradas
            lInicial = (ent.Length * 10) / 100 '10%
            ProgressBar1.Value += lInicial
            ent.ExtractToFile(sDirectorioExtraccion & "/" & ent.Name, True)
            ProgressBar1.Value += ent.Length - lInicial '100% del archivo
        Next
    End Sub
 

Te lo explico un poco...
1º) Ordeno la lista de entradas por tamaño (menor a mayor)
2º) Miro cuanto es el tamaño total (lSize)
3º) Recorro todas las entradas, de inicio, pongo un 10% del archivo como ya descomprimido, y una vez terminado, pongo el restante



Un saludo!!!

[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!!!

[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!!!