USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página