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