Weten hoe u zip-bestanden met behulp van Visual Basic.NET ( VB.NET ) kunt u tijd besparen als je nodig hebt om veel bestanden te comprimeren . Zip is een bestandsformaat dat gebruikt wordt voor het bestand compressie . Bestanden worden vaak gezipt als ze gaan worden verzonden via e-mail voor een snellere overdracht . Ze zijn ook geritst harde schijf ruimte te besparen . VB.NET is een object - georiënteerde programmeertaal ontwikkeld door Microsoft . VB.NET wordt gewaardeerd om zijn flexibiliteit en gebruiksgemak . Instructies
1 Start Microsoft Visual Basic Express en klik op ' Nieuw project ... " aan de linkerkant van uw scherm . Dubbelklik op " Console Application . "
Press 2 " Ctrl + A " en vervolgens op " Delete " om de bestaande code te verwijderen .
Copy en 3 plak de volgende code op uw " Module1.vb " module . Imports System.IO
Imports System.IO.Compression module
Module1 Sub
main ( ) Dim zipDirPath
As String = " C : \\ filesToZip " Dim DirInfo
Zoals DirectoryInfo = Nieuw DirectoryInfo ( zipDirPath ) op voor Elke currentFileInfo Zoals FileInfo In DirInfo . GetFiles ( ) comprimeren
( currentFileInfo ) Volgende End Sub Private Sub comprimeren ( ByVal currentFileInfo Zoals FileInfo )
gebruiken inFile Zoals FileStream = currentFileInfo.OpenRead ( ) op Als ( File.GetAttributes ( currentFileInfo.FullName ) En FileAttributes.Hidden ) _
< > FileAttributes.Hidden En currentFileInfo.Extension < > " . gz " Dan
behulp outFile Zoals FileStream = File.Create ( currentFileInfo.FullName + " . gz " ) op Twitter Met comprimeren Zoals GZipStream = _
Nieuw GZipStream ( outFile , CompressionMode.Compress ) inFile.CopyTo ( comprimeren ) Console.WriteLine
( " Compressed { 0 } van { 1 } tot { 2 } bytes . " , _ < br currentFileInfo.Name , currentFileInfo.Length.ToString ( > ) , _ outFile.Length.ToString (
) ) End of gebruik End of gebruik
End If End of gebruik End Sub End Module
4
Bewerk de volgende regel code en typ uw eigen bestand pad Dim zipDirPath
As String = . " C : \\ filesToZip " . Pers Nieuws " F5 " om uw programma te draaien
|
