Cómo Zip archivos utilizando VB Net

Saber cómo comprimir archivos con Visual Basic.NET ( VB.NET ) le puede ahorrar tiempo si necesita comprimir una gran cantidad de archivos . Zip es un formato de archivo usado para la compresión de archivos. Los archivos se comprimen a menudo si van a ser enviados a través de correo electrónico para una transferencia más rápida . También están comprimidos para ahorrar espacio en el disco duro. VB.NET es un lenguaje de programación orientado a objetos desarrollado por Microsoft . VB.NET es valorado por su flexibilidad y facilidad de uso. Instrucciones
1

Inicie Microsoft Visual Basic Express y haga clic en "Nuevo proyecto ... " en el panel izquierdo de la pantalla. Haga doble clic en " Aplicación de consola. "
2

Presione " Ctrl + A" y pulse "Eliminar " para eliminar el código existente.
3

Copiar y pegue el siguiente código al módulo " Module1.vb " .

Imports System.IO Imports

System.IO.Compression

Module Module1 Sub

principal ()

zipDirPath As String = "C: \\ filesToZip "

DirInfo As DirectoryInfo = New DirectoryInfo ( zipDirPath )

For Each currentFileInfo Como FileInfo En DirInfo . GetFiles ()

Compress ( currentFileInfo )

Siguiente

End Sub

Comprimir Sub Private ( ByVal currentFileInfo Como FileInfo )

Uso INFILE Como FileStream = currentFileInfo.OpenRead ()

Si ( File.GetAttributes ( currentFileInfo.FullName ) Y FileAttributes.Hidden ) _

< > FileAttributes.Hidden Y currentFileInfo.Extension < > ". gz " Entonces

Uso OUTFILE Como FileStream = File.Create ( currentFileInfo.FullName + ". gz " )

Uso Comprimir Como GZipStream = _

Nuevo GZipStream ( OUTFILE , CompressionMode.Compress )

inFile.CopyTo ( Comprimir )

Console.WriteLine ( "Comprimido { 0} de { 1 } a { 2 } bytes . ", _

currentFileInfo.Name , currentFileInfo.Length.ToString () _

outFile.Length.ToString ( ))

End Using End Using

End If End Using

End Sub End Module

4

editar la siguiente línea de código y escriba su propio archivo ruta

Dim zipDirPath As String = ". C: \\ filesToZip " .

Press "F5 " para ejecutar el programa de descarga