|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic.Net (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Código para descompactar arquivo ZIP com DLL SharpZipLib
|
 |
|
|
|
Postada em 6/7/2005 por Fabio Rocha
Imports System.IO
Imports ICSharpCode.SharpZipLib.Zip
Private Function DescompactarArquivoZIP(ByVal strArqCompac As String) As Boolean
Dim ArqZipLeitura As New ZipInputStream(File.OpenRead(strArqCompac))
Dim ArqZip As New ZipFile(strArqCompac)
Try
For Each ArqInZip As ZipEntry In ArqZip
ArqInZip = ArqZipLeitura.GetNextEntry
Dim NomeArq As String = sDirDestino & ArqInZip.Name
If NomeArq <> "" Then
Dim EscreverArq As FileStream = File.Create(NomeArq)
Dim Tamanho As Integer = 2048
Dim Dado(2048) As Byte
While True
Tamanho = ArqZipLeitura.Read(Dado, 0, Dado.Length)
If (Tamanho > 0) Then
EscreverArq.Write(Dado, 0, Tamanho)
Else
Exit While
End If
End While
EscreverArq.Close()
End If
Next
ArqZipLeitura.Close()
DescompactarArquivoZIP = True
Catch ex As Exception
DescompactarArquivoZIP = False
MsgBox(ex.ToString())
End Try
End Function
|
|
|
|
|
