COMPACTAR DIRETORIO

MFLAVIO 08/05/2017 20:17:44
#473808
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
DS2T 09/05/2017 08:26:07
#473820
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.
MFLAVIO 09/05/2017 10:29:30
#473832
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
NILSONTRES 09/05/2017 11:39:12
#473835 Resposta escolhida
[ô]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:\exampleesult.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
MFLAVIO 11/05/2017 14:32:24
#473893
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
NILSONTRES 11/05/2017 17:48:58
#473900
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.
NILSONTRES 17/05/2017 14:06:37
#474008
E ai conseguiu ?
MFLAVIO 31/05/2017 11:43:48
#474283
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 & [Ô]    emp.zip[Ô] & [Ô][Ô][Ô][Ô] & [Ô] [Ô] & [Ô][Ô][Ô][Ô] & sOrigem & [Ô][Ô][Ô][Ô])
                Winrar.Start()
                Winrar.WaitForExit()
                Winrar.Dispose()
Tópico encerrado , respostas não são mais permitidas
Voltar