Πώς να Zip αρχείων με τη χρήση VB Net

Γνωρίζοντας πώς να συμπιέσετε αρχεία χρησιμοποιώντας το Visual Basic.NET ( VB.NET ) μπορεί να εξοικονομήσει χρόνο σας, αν χρειαστεί να συμπιέσει πολλά αρχεία . Zip είναι μια μορφή αρχείου που χρησιμοποιείται για τη συμπίεση του αρχείου . Τα αρχεία συχνά με φερμουάρ , εάν πρόκειται να αποσταλεί μέσω ηλεκτρονικού ταχυδρομείου για ταχύτερη μεταφορά . Είναι, επίσης, με φερμουάρ για να εξοικονομήσετε χώρο στο σκληρό δίσκο . VB.NET είναι μια αντικειμενοστραφής γλώσσα προγραμματισμού που αναπτύχθηκε από τη Microsoft . VB.NET αποτιμάται για την ευελιξία και την ευκολία χρήσης του . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Visual Basic Express και κάντε κλικ στο "New Project ... " στο αριστερό τμήμα της οθόνης σας . Κάντε διπλό κλικ στο " Εφαρμογή Console . " 2

Πατήστε το " Ctrl + A" και στη συνέχεια πατήστε "Διαγραφή " για να αφαιρέσετε τα υπάρχοντα κώδικα .
Εικόνων 3

Αντιγραφή και επικολλήστε τον παρακάτω κώδικα σε λειτουργική μονάδα " Module1.vb σας» .

Εισαγωγές System.IO

Εισαγωγές System.IO.Compression

Module Module1

Sub Main ( )

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

Dim DirInfo Όπως DirectoryInfo = Νέα DirectoryInfo ( zipDirPath )

For Each currentFileInfo Όπως αρχείου στο DirInfo . GetFiles ( )

Συμπίεση ( currentFileInfo )

Επόμενο

End Sub

Private Sub Συμπίεση ( ByVal currentFileInfo Όπως Fileinfo )

Χρήση Όπως βρέθηκε το αρχείο FileStream = currentFileInfo.OpenRead ( )

Αν ( File.GetAttributes ( currentFileInfo.FullName ) Και FileAttributes.Hidden ) _

<> FileAttributes.Hidden Και currentFileInfo.Extension <> " . gz " Τότε

Χρησιμοποιώντας outfile Όπως FileStream = File.Create ( currentFileInfo.FullName + " . gz » )

Χρησιμοποιώντας Συμπίεση Όπως GZipStream = _

Νέα GZipStream ( outfile , CompressionMode.Compress )

inFile.CopyTo ( Συμπίεση )

Console.WriteLine ( " Compressed { 0 } από { 1 } έως { 2 } bytes . " , _

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

outFile.Length.ToString ( ) )

Τέλος Χρησιμοποιώντας

Τέλος Χρησιμοποιώντας

End If End

Χρησιμοποιώντας

End Sub

End Module
Η

4 Επεξεργαστείτε την ακόλουθη γραμμή κώδικα και πληκτρολογήστε το δικό σας αρχείο . διαδρομή

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

Πατήστε το πλήκτρο " F5 " για να τρέξετε το πρόγραμμά σας
Η
εικόνων