Cómo comprimir archivos con VB Net

Saber cómo los archivos zip utilizando Visual Basic.NET (VB.NET) le puede ahorrar tiempo si se necesita para comprimir una gran cantidad de archivos. Zip es un formato de archivo utilizado para la compresión de archivos. Los archivos se comprimen a menudo si es que 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 Iniciar 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 Pulse la tecla "Ctrl + A" y luego pulse "Borrar" para eliminar el código existente.

3 Copia y pega el código siguiente para su módulo "Module1.vb".

Imports System.IO

Las importaciones System.IO.Compression

Module Module1

Sub Main()

Dim zipDirPath As String = "C: \ filesToZip"

Dim Info Dir Como DirectoryInfo = Nueva DirectoryInfo (zipDirPath)

Para cada currentFileInfo Como FileInfo En DirInfo.GetFiles ()

Comprimir (currentFileInfo)

Siguiente

End Sub

Private Sub Comprimir (ByVal currentFileInfo Como FileInfo)

Usando INFILE Como FileStream = currentFileInfo.OpenRead ()

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

& Lt;> FileAttributes.Hidden Y currentFileInfo.Extension & lt;> ".gz" Entonces

Usando archivosalida Como FileStream = File.Create (currentFileInfo.FullName + ".gz")

El uso de la compresa Como GZipStream = _

Nueva GZipStream (OUTFILE, CompressionMode.Compress)

inFile.CopyTo (Comprimir)

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

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

outFile.Length.ToString ())

El uso de terminar

El uso de terminar

Terminara si

El uso de terminar

End Sub

Módulo fin

4 Editar la siguiente línea de código y escriba su propia ruta de archivo.

Dim zipDirPath As String = "C: \ filesToZip"

Pulse la tecla "F5" para ejecutar el programa.