Cómo comprimir Archivos Usando VB Net

Como comprimir Archivos Usando VB Net

Saber archivos zip utilizando Visual Basic.NET (VB.NET puede ahorrar tiempo si usted necesita para comprimir una gran cantidad de archivos. Zip es un formato de archivo utilizado para la compresion de archivos. Los archivos son a menudo con cremallera si van a ser enviados a traves de correo electronico para una transferencia mas rapida. Tambien son comprimidos para ahorrar espacio en el disco duro. VB.NET es orientado a objetos lenguaje de programacion desarrollado por Microsoft. VB.NET es valorado por su flexibilidad y facilidad de uso.

Saber archivos zip utilizando Visual Basic.NET (VB.NET puede ahorrar tiempo si usted necesita para comprimir una gran cantidad de archivos. Zip es un formato de archivo utilizado para la compresion de archivos. Los archivos son a menudo con cremallera si van a ser enviados a traves de correo electronico para una transferencia mas rapida. Tambien son comprimidos para ahorrar espacio en el disco duro. VB.NET es orientado a objetos lenguaje de programacion desarrollado por Microsoft. VB.NET es valorado por su flexibilidad y facilidad de uso.

• Inicie Microsoft Visual Basic Express y haga clic en 'Nuevo Proyecto...' en el panel izquierdo de su pantalla. Haga doble clic en 'Aplicacion de Consola.'
• Presione 'Ctrl' y, a continuacion, pulse 'Borrar' para quitar el codigo existente.
• Copia y pega el siguiente codigo en su 'Module1.vb' modulo.
  las Importaciones del Sistema.IO
  las Importaciones del Sistema.IO.La compresion
  Modulo Module1
  Sub Main()
  Dim zipDirPath as String = 'C:/filesToZip'
  Dim DirInfo Como DirectoryInfo = New DirectoryInfo(zipDirPath)
  Para Cada currentFileInfo Como FileInfo En DirInfo.GetFiles()
  Comprimir(currentFileInfo)
  Siguiente
  End Sub
  Private Sub Comprimir(ByVal currentFileInfo Como FileInfo)
  el Uso de este argumento Como FileStream = currentFileInfo.OpenRead()
  If (Archivo.GetAttributes(currentFileInfo.FullName) Y FileAttributes.Oculto) _
  <> FileAttributes.Oculto Y currentFileInfo.Extension <> '.gz', a Continuacion,
  el Uso de outFile Como FileStream = Archivo.Crear(currentFileInfo.FullName '.gz')
  el Uso de Comprimir Como GZipStream = _
  Nueva GZipStream(outFile, CompressionMode.Comprimir)
  inFile.CopyTo(Comprimir)
  Console.WriteLine('Comprimido {0} {1} a {2} bytes.', _
  currentFileInfo.Nombre, currentFileInfo.Longitud.ToString(), _
  outFile.Longitud.ToString())
  Con
  Con
  Si
  Con
  End Sub
  Final del Modulo
• Editar la siguiente linea de codigo y escriba su propia ruta de acceso del archivo.
  Dim zipDirPath as String = 'C:/filesToZip'
  Presione 'F5' para ejecutar el programa.