Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> software >> Compressione dei dati >> .

Come Zip file utilizzando VB Net

Saper zip file utilizzando Visual Basic.NET ( VB.NET ) consente di risparmiare tempo se avete bisogno di comprimere un sacco di file . Zip è un formato di file utilizzato per la compressione dei file . I file sono spesso compressi , se hanno intenzione di essere inviati tramite e-mail per il trasferimento più veloce . Sono anche compressi per risparmiare spazio sul disco rigido . VB.NET è un linguaggio di programmazione object-oriented sviluppato da Microsoft . VB.NET è apprezzato per la sua flessibilità e facilità d'uso . Istruzioni
1

Avviare Microsoft Visual Basic Express e fare clic su " Nuovo progetto ... " nel riquadro di sinistra del vostro schermo . Fare doppio clic su " Applicazione console ".
2

Premere " Ctrl + A" e premere "Elimina" per rimuovere il codice esistente.
3

Copia e incollare il seguente codice al modulo " Module1.vb " .

Imports System.IO Imports

System.IO.Compression

modulo Module1

Sub main () Dim

zipDirPath As String = " C : \\ filesToZip "

Dim DirInfo Come DirectoryInfo = New DirectoryInfo ( zipDirPath ) per

Ogni currentFileInfo Come FileInfo In DirInfo . GetFiles ( ) per

Compress ( currentFileInfo ) per

Avanti

End Sub

Compress private Sub ( ByVal currentFileInfo Come FileInfo ) per

Utilizzo inFile Come FileStream = currentFileInfo.OpenRead ( ) per

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

< > FileAttributes.Hidden E currentFileInfo.Extension < > " . gz " Allora

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

Utilizzando Compress Come GZipStream = _

GZipStream ( outFile , CompressionMode.Compress ) per

inFile.CopyTo ( Comprimi ) per

Console.WriteLine ( " compressa { 0} da { 1} a { 2 } byte . " , _ < br

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

outFile.Length.ToString ( ) ) per

End Using

End Using

End If

End Using

End Sub End Module


4

modificare la seguente riga di codice e digitare un tuo file percorso

Dim zipDirPath As String = . "C : \\ filesToZip " .

Premere " F5 " per eseguire il programma

 

software © www.354353.com