Come Zip file utilizzando VB Net

January 13

Saper zip file utilizzando Visual Basic.NET (VB.NET) può risparmiare tempo se è necessario comprimere un sacco di file. Zip è un formato di file utilizzato per la compressione dei file. I file sono spesso compressi se andranno da inviare tramite e-mail per il trasferimento più veloce. Sono anche compressi per risparmiare spazio sul disco rigido. VB.NET è un linguaggio di programmazione orientato agli oggetti sviluppato da Microsoft. VB.NET è apprezzato per la sua flessibilità e facilità d'uso.

istruzione

1 Avviare Microsoft Visual Basic Express e fare clic su "Nuovo progetto ..." nel riquadro a sinistra dello schermo. Fare doppio clic su "Applicazione console."

2 Premere il tasto "Ctrl + A", quindi premere "Delete" per rimuovere il codice esistente.

3 Copia e incolla il seguente codice al modulo "Module1.vb".

Imports System.IO

Le importazioni System.IO.Compression

Module Module1

Sub Main()

Dim zipDirPath As String = "C: \ filesToZip"

Dim DirInfo Come DirectoryInfo = Nuovo DirectoryInfo (zipDirPath)

Per ogni currentFileInfo Come FileInfo In DirInfo.GetFiles ()

Comprimere (currentFileInfo)

Il prossimo

End Sub

Private Sub Compress (ByVal currentFileInfo come FileInfo)

Utilizzando infile Come FileStream = currentFileInfo.OpenRead ()

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

& Lt;> FileAttributes.Hidden E currentFileInfo.Extension & lt;> ".gz" Allora

Utilizzando OUTFILE Come FileStream = File.Create (currentFileInfo.FullName + ".gz")

Utilizzando Compress Come GZipStream = _

Nuovo GZipStream (OUTFILE, CompressionMode.Compress)

inFile.CopyTo (Compress)

Console.WriteLine ( "Compresso {0} da {1} a {2} byte.", _

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

outFile.Length.ToString ())

Fine Utilizzando

Fine Utilizzando

Finisci se

Fine Utilizzando

End Sub

Modulo fine

4 Modificare la seguente riga di codice e digitare il proprio percorso di file.

Dim zipDirPath As String = "C: \ filesToZip"

Premere il tasto "F5" per eseguire il programma.