COMPACTAR DIRETORIO

 Tópico anterior Próximo tópico Novo tópico

COMPACTAR DIRETORIO

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#473808 - 08/05/2017 20:17:44

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Ola Gente blz.

estou tendo uma dificuldade em Compactar Diretórios, para criar um Backup

com eu uso o NameSpace  Ionic.Zip
e o seguinte código

                 Using zip As ZipFile = New ZipFile()
                    zip.AddDirectory(strPath & "\MabTemp")
                    zip.Save(strPath & "\Temp.zip")
                    Lista_erros.LST_erros.Items.Add("Compactando Backup pass 8")
                End Using
  


o Código acima, compacta 2 diretórios e um arquivo FDB, funciona perfeito se o Arquivos FDB estiver com menos de 40MB
se ele for maior que 40MB, quando vou descompactar, mesmo usando o Winrar Winzip e vários outros
o Arquivo FDB fica danificado, os diretórios Ficam OK mais o FDB danifica e não consigo descompactar ele sempre gera erro de CRC

Alguém em alguma dica de como Compactar Diretórios

Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom

#473820 - 09/05/2017 08:26:07

DS2T
BARRA MANSA
Cadast. em:Novembro/2010


Estranho, qual a versão da DLL? Tente baixar um update no Nuget.
Já usei o Ionic e não tive problemas...  Atualmente eu uso o SharpZip, talvez te ajude.

"Cansei de frases intelectuais" - Eu mesmo


#473832 - 09/05/2017 10:29:30

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Citação:
:
Ola Gente blz.

estou tendo uma dificuldade em Compactar Diretórios, para criar um Backup

com eu uso o NameSpace  Ionic.Zip
e o seguinte código

                 Using zip As ZipFile = New ZipFile()
                    zip.AddDirectory(strPath & "MabTemp")
                    zip.Save(strPath & "Temp.zip")
                    Lista_erros.LST_erros.Items.Add("Compactando Backup pass 8")
                End Using
  


o Código acima, compacta 2 diretórios e um arquivo FDB, funciona perfeito se o Arquivos FDB estiver com menos de 40MB
se ele for maior que 40MB, quando vou descompactar, mesmo usando o Winrar Winzip e vários outros
o Arquivo FDB fica danificado, os diretórios Ficam OK mais o FDB danifica e não consigo descompactar ele sempre gera erro de CRC

Alguém em alguma dica de como Compactar Diretórios


minha dll esta na versão 1918, não achei mais atualizada

vou tentar essa sharpzip

Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom

Resposta escolhida #473835 - 09/05/2017 11:39:12

NILSONTRES
SAO PAULO
Cadast. em:Março/2012


Última edição em 09/05/2017 11:45:57 por NILSONTRES

'Adicione o import abaixo e no projeto faça referencia a System.IO.Compression.FileSystem
        'Imports System.IO.Compression

        Dim startPath As String = "c:\example\start"
        Dim zipPath As String = "c:\example\result.zip"
        Dim extractPath As String = "c:\example\extract"

        ZipFile.CreateFromDirectory(startPath, zipPath)

        ZipFile.ExtractToDirectory(zipPath, extractPath)


https://msdn.microsoft.com/pt-br/library/system.io.compression.zipfile(v=vs.110).aspx



#473893 - 11/05/2017 14:32:24

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Citação:
:
'Adicione o import abaixo e no projeto faça referencia a System.IO.Compression.FileSystem
        'Imports System.IO.Compression

        Dim startPath As String = "c:examplestart"
        Dim zipPath As String = "c:example
esult.zip"
        Dim extractPath As String = "c:exampleextract"

        ZipFile.CreateFromDirectory(startPath, zipPath)

        ZipFile.ExtractToDirectory(zipPath, extractPath)


https://msdn.microsoft.com/pt-br/library/system.io.compression.zipfile(v=vs.110).aspx


oi Nilson obrigado pela Resposta

mais testando sempre que o FDB tem mais de 40MB
se compactado pelo comando acima, ele perde os valores de CRC e com Isso na descompactação fica ilegivel

se eu compactar a mesma pasta pelo Winzip ou winrar funciona perfeitamente

Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom

#473900 - 11/05/2017 17:48:58

NILSONTRES
SAO PAULO
Cadast. em:Março/2012


Citação:
  oi Nilson obrigado pela Resposta

mais testando sempre que o FDB tem mais de 40MB
se compactado pelo comando acima, ele perde os valores de CRC e com Isso na descompactação fica ilegivel

Acabei de compactar um diretório com 159MB e com vários tipos de arquios dentro e foi tudo normal.



#474008 - 17/05/2017 14:06:37

NILSONTRES
SAO PAULO
Cadast. em:Março/2012


E ai conseguiu ?




#474283 - 31/05/2017 11:43:48

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Citação:
:
E ai conseguiu ?

Oi Nilson Consegui de outra Forma
consegui usando o Winrar pelo sistema

  
                Static Winrar As System.Diagnostics.Process = New System.Diagnostics.Process
                Static sOrigem As String = strPath & "\MabTemp"
                Winrar.StartInfo.FileName = (SPath & "\winrar.exe")
                Winrar.StartInfo.Arguments = (" a -d -ms*.ini;*.png;*.doc -t -ep1 -m5 -ibck " & """" & strPath & "\temp.zip" & """" & " " & """" & sOrigem & """")
                Winrar.Start()
                Winrar.WaitForExit()
                Winrar.Dispose()


Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por MFLAVIO em 25/08/2017 08:57:33