Wie man Zip-Dateien mit VB Net

Wissen, wie man zip-Dateien mit Visual Basic (VB) können Sie Zeit sparen, wenn Sie viele Dateien komprimieren möchten. ZIP ist ein Dateiformat für die Dateikomprimierung verwendet. Dateien sind oft gezippt, wenn sie gehen, für schnellere Übertragung per e-Mail gesendet werden. Sie sind auch gezippt, um Festplattenplatz zu sparen. VB ist eine objektorientierte Programmiersprache von Microsoft entwickelt wurde. VB wird geschätzt für seine Flexibilität und Anwenderfreundlichkeit.

Anweisungen

1 Starten Sie Microsoft Visual Basic Express, und klicken Sie auf "New Project..." im linken Bereich des Bildschirms. Doppelklicken Sie auf "Konsolen Anwendung."

2 Drücken Sie "STRG + A" und dann "Löschen", um die vorhandenen Code zu entfernen.

3 Kopieren Sie und fügen Sie den folgenden Code in "Module1.vb" Modul.

Imports System.IO

System.IO.Compression importiert

Modul Modul1

Sub Main()

Dim zipDirPath As String = "C:\filesToZip"

Dim DirInfo As DirectoryInfo = New DirectoryInfo(zipDirPath)

For Each currentFileInfo As FileInfo In DirInfo.GetFiles()

Compress(currentFileInfo)

Next

End Sub

Private Sub Compress(ByVal currentFileInfo As FileInfo)

Using inFile As FileStream = currentFileInfo.OpenRead()

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

<> FileAttributes.Hidden And currentFileInfo.Extension <> ".gz" Then

Using outFile As FileStream = File.Create(currentFileInfo.FullName + ".gz")

Using Compress As GZipStream = _

New GZipStream(outFile, CompressionMode.Compress)

inFile.CopyTo(Compress)

Console.WriteLine("Compressed {0} from {1} to {2} bytes.", _

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

outFile.Length.ToString())

End Using

End Using

End If

End Using

End Sub

Ende-Modul

4 Bearbeiten Sie die folgende Codezeile und geben Sie Ihren eigenen Pfad ein.

Dim ZipDirPath As String = "C:\filesToZip"

Mit "F5" um das Programm auszuführen.