COMPACTAR -WINRAR -PASTA COM CONTEUDO

JANDSONSISTENS 26/10/2016 19:43:59
#468461
Boa noite galera,
alguem sabe ou tem alguma ideia. de como Compactar uma pasta cheio de conteudo ? arquivos TXT . e XML.
é q estou criando uma função para fechamento mensal para q o usuario todo final do mes. gere os arquivos Compactado em Winrar.

alguem tem uma ideia em que possa me ajudar ?
DS2T 26/10/2016 19:56:53
#468462 Resposta escolhida
A partir da versão 4.5, se não me engano, do Framework .NET... você tem o namespace System.IO.Compression que faz isso.
Outra forma é usando dll de terceiro, como o da Ionic.

Abraços!
JANDSONSISTENS 26/10/2016 20:49:44
#468465
Citação:

:
A partir da versão 4.5, se não me engano, do Framework .NET... você tem o namespace System.IO.Compression que faz isso.
Outra forma é usando dll de terceiro, como o da Ionic.

Abraços!



DS2T, achei a dll da IONIC.
agora estou com uma duvida.

como faço para que o OpenFileDialog abrir na pasta q eu defini. para que o usuario nao fique procurando o local..

estou fazendo assim

   Private Sub btCompactarOrigem_Click_1(sender As Object, e As EventArgs) Handles btCompactarOrigem.Click
        Dim open As New OpenFileDialog()
        open.Multiselect = True
        open.ShowDialog()


        listbox.Items.AddRange(open.FileNames)
    End Sub 


   Private Sub btExecutarCompactar_Click_1(sender As Object, e As EventArgs) Handles btExecutarCompactar.Click
        Dim save As New SaveFileDialog()
        save.Filter = [Ô]Winrar|.rar[Ô]
        save.ShowDialog()

        Dim zFile As New ZipFile()
        zFile.CompressionLevel = Ionic.Zlib.CompressionLevel.BestCompression
        zFile.Comment = [Ô]Arquivo Compactado[Ô]

        For i As Integer = 0 To listbox.Items.Count - 1
            zFile.AddFile(listbox.Items(i).ToString(), save.InitialDirectory)
        Next

        zFile.Save(save.FileName)
        zFile.Dispose()
    End Sub


[txt-color=#007100] Tem como fazer para não abrir o OpenFileDialog. tipo.. eu definir direto no codigo o local dos arquivoz. que se encontra. no diretorio
C:\SistemSis\Arquivo\ [/txt-color]
Tópico encerrado , respostas não são mais permitidas
Voltar