Ver Mensaje Individual
  #1 (permalink)  
Antiguo 10/03/2017, 22:40
Cholo5247
 
Fecha de Ingreso: noviembre-2015
Mensajes: 6
Antigüedad: 9 años
Puntos: 1
Pregunta ¿Como Extraer Archivo .zip con Barra de progreso?

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.