Wissen, wie man Dateien mit Visual Basic.NET (VB.NET ) Zip können Sie Zeit sparen , wenn Sie eine Menge von Dateien komprimieren müssen . Zip ist ein Dateiformat für die Datei- Kompression verwendet . Die Dateien werden gezippt oft , wenn sie gehen, um per E-Mail für eine schnellere Übertragung gesendet sind . Sie sind auch gezippt um Platz auf der Festplatte zu speichern. VB.NET ist eine objektorientierte Programmiersprache, die von Microsoft entwickelt . VB.NET ist bekannt für seine Flexibilität und Benutzerfreundlichkeit bewertet. Anleitung
1
Starten Sie Microsoft Visual Basic Express und klicken Sie auf " Neues Projekt ... " auf der linken Seite des Bildschirms. Doppelklicken Sie auf " Console Application . "
2
Drücken Sie "Strg + A" und drücken Sie dann auf "Löschen" , um bestehenden Code zu entfernen.
3
Kopieren und fügen Sie den folgenden Code auf Ihre " Module1.vb "-Modul.
Imports System.IO
Importe System.IO.Compression
Module Module1
Sub Main () Dim
zipDirPath As String = "C : \\ filesToZip "
Dim DirInfo Wie DirectoryInfo = New DirectoryInfo ( zipDirPath )
For Each currentFileInfo Wie FileInfo In DirInfo . GetFiles ()
Compress ( currentFileInfo )
Weiter
End Sub private Sub
Compress (ByVal currentFileInfo Wie FileInfo )
Verwendung inFile Wie FileStream = currentFileInfo.OpenRead ()
( File.GetAttributes ( currentFileInfo.FullName ) Und FileAttributes.Hidden ) _
< > FileAttributes.Hidden Und currentFileInfo.Extension < > " . gz " Dann
Mit outFile Wie FileStream = File.Create ( currentFileInfo.FullName + " . gz " )
Mit Compress Wie GZipStream = _
GZipStream ( outFile , CompressionMode.Compress )
inFile.CopyTo ( Compress )
Console.WriteLine (" Compressed {0} von {1} {2 } Bytes. ", _
currentFileInfo.Name , currentFileInfo.Length.ToString () , _ Mit
outFile.Length.ToString ())
End Using End
End If End Using
End Sub End Module
4
bearbeiten Sie die folgende Zeile Code und geben Sie Ihren eigenen Datei Pfad
Dim zipDirPath As String = . "C: \\ filesToZip " .
Presse "F5" um das Programm auszuführen
