Como arquivos zip usando vb net

Inicie o Microsoft Visual Basic Express e clique "Novo projeto..." no painel esquerdo da tela. Duplo click "Aplicação de console."

pressione "Ctrl + A" e pressione "Excluir" para remover o código existente.

Copie e cole o seguinte código ao seu "Module1.vb" módulo.

Imports System.IO

importações System.IO.Compression

module Module1

Sub Main ()
Dim zipDirPath As String = "C: filesToZip"
Dim DirInfo Como DirectoryInfo = Novo DirectoryInfo (zipDirPath)
Para Cada currentFileInfo Como FileInfo Em DirInfo.GetFiles ()
Comprimir (currentFileInfo)
Próximo
End Sub
Private Sub Compress (ByVal currentFileInfo Como FileInfo)
Usando INFILE Como FileStream = currentFileInfo.OpenRead ()
If (File.GetAttributes (currentFileInfo.FullName) E FileAttributes.Hidden) _


lt; gt; FileAttributes.Hidden E currentFileInfo.Extension lt; gt; ".gz" Então
Usando outFile Como FileStream = File.Create (currentFileInfo.FullName + ".gz")
Usando Compress Como GZipStream = _
New GZipStream (outFile, CompressionMode.Compress)
inFile.CopyTo (Compress)
Console.WriteLine ("Comprimido {0} de {1} a {2} bytes.", _
currentFileInfo.Name, currentFileInfo.Length.ToString (), _
outFile.Length.ToString ())
End Using
End Using
Fim se
End Using
End Sub

End Module

Edite a seguinte linha de código e digite o seu próprio caminho de arquivo.

Dim zipDirPath As String = "C: filesToZip"

pressione "F5" para executar o programa.