Saber como arquivos zip usando Visual Basic.NET ( VB.NET ) você pode economizar tempo se você precisa comprimir um monte de arquivos . Zip é um formato de arquivo usado para compactação de arquivos. Os arquivos são compactados frequentemente se eles estão indo para ser enviado por e-mail para a transferência mais rápida. Eles também estão compactados para economizar espaço em disco rígido. VB.NET é uma linguagem de programação de computadores orientada a objetos desenvolvida pela Microsoft. VB.NET é valorizado por sua flexibilidade e facilidade de uso. Instruções
1
Inicie o Microsoft Visual Basic Express e clique em " New Project ... " no painel esquerdo da tela. Clique duas vezes em " Console Application ".
2
Pressione "Ctrl + A" e pressione "Delete" para remover o código existente.
3
Copie e cole o seguinte código para o módulo " Module1.vb " .
Imports System.IO Imports
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 ()
Compress ( currentFileInfo )
Próxima
End Sub Private Sub
Compress (ByVal currentFileInfo Como FileInfo )
Usando inFile Como FileStream = currentFileInfo.OpenRead ()
Se ( File.GetAttributes ( currentFileInfo.FullName ) E FileAttributes.Hidden ) _
< > FileAttributes.Hidden E currentFileInfo.Extension < > " . gz " Então
Usando outFile Como FileStream = File.Create ( currentFileInfo.FullName + ". gz " )
Usando Compress Como GZipStream = _
Nova GZipStream ( outFile , CompressionMode.Compress )
inFile.CopyTo ( Compress )
Console.WriteLine ( " Compressed {0} de {1} para {2} bytes. ", _ < br >
currentFileInfo.Name , currentFileInfo.Length.ToString () _
outFile.Length.ToString ())
End Using End Using
End If End Using
End Sub End Module
4
Edite a seguinte linha de código e digite o seu próprio arquivo . caminho
Dim zipDirPath As String = " C: \\ filesToZip " .
Pressione " F5" para executar o programa
