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.
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.