Hoe te Zip bestanden met behulp van VB netto

Weten hoe te zip bestanden met behulp van Visual Basic.NET (VB.NET) kunt u tijd besparen als u wilt een heleboel bestanden comprimeren. Zip is een bestandsindeling die wordt gebruikt voor bestandscompressie. Bestanden zijn vaak zipped als ze gaan voor snellere overdracht via e-mail wordt verzonden. Ze zijn ook zipped om harddisk ruimte te besparen. VB.NET is een object-georiënteerde programmeertaal ontwikkeld door Microsoft. VB.NET wordt gewaardeerd voor zijn flexibiliteit en gebruiksgemak.

• Start Microsoft Visual Basic Express en klik "New Project..." op het linker deelvenster van het scherm. Dubbelklik op "Console toepassing."

• Druk op 'Ctrl + A' en druk vervolgens op "Verwijderen" om te verwijderen van de bestaande code.

• Kopieer en plak de volgende code naar uw "Module1.vb"-module.

  Invoer System.IO

  Invoer System.IO.Compression

  Module Module1

  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

  Einde Module

• De volgende coderegel bewerken en typt u uw eigen bestandspad.

  Dim zipDirPath As String = "C:\filesToZip"

  Druk op "F5" uw programma uit te voeren.