Jump to content
Fórum Script Brasil
  • 0

Compactar Arquivos


Allex.Soller
 Share

Question

Boa tarde a todos

Estou com problema no código de uma aplicação e acredito que possam me ajudar.
Eu trabalho em uma empresa onde precisamos enviar relatórios no final de semana via sistema interno. O problema é que os 

relatórios são gerados pelos usuários e cada um deles "jogam onde querem" os arquivos.
Como nosso sistema só aceita arquivos zipados e embora já tenhamos ensinado esse processo, eles acabam não fazendo ou 

quando fazem, salvam no meio dos próprios documentos.
Pensando nisso e já que estou iniciando na programação, pensei em criar uma ferramenta que fizesse esse trabalho.
Ela localiza no servidor todos os relatórios e compacta.

A parte de localização eu já consegui pelo código abaixo

 For Each foundFile As String In My.Computer.FileSystem.GetFiles("Z:\C\Sysmon", 

Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, "*.txt")
ListBox1.Items.Add(FoundFile)'Apenas exemplo pra retornar os arquivos filtrados(TXT)
Next
            

E a parte de compactar eu também consegui com esse código

 Using zip As New ZipFile
                zip.AddFile(foundFile)
                zip.Save("C:\Users\TI\Desktop\Rel.zip")
            End Using

O problema é que a parte zip.AddFile(FoundFile) só compacta um arquivo.
Agora sim a minha pergunta rsrs...
Como eu posso compactar cada arquivo a medida que ele encontrar?
OU se possível, compactar todos que possuem a extensão TXT?

Agradeço a ajuda de todos.

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Basta você juntar os dois exemplos que você mesmo deu, sendo que o Save() do zip só será chamado no final:

Dim zip As New ZipFile()

For Each foundFile As String In My.Computer.FileSystem.GetFiles("Z:\C\Sysmon", Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, "*.txt")
    zip.AddFile(FoundFile)
Next

zip.Save("C:\Users\TI\Desktop\Rel.zip")

Certo?

Abraços!

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.6k
    • Total Posts
      646.2k
×
×
  • Create New...