Att veta hur till zip -filer med hjälp av Visual Basic.NET ( VB.NET ) kan spara tid om du behöver komprimera en massa filer . Zip är ett filformat som används för fil -komprimering . Filer ofta zippade om de ska skickas via e-post för snabbare överföring . De är också zippade för att spara hårddiskutrymme . VB.NET är ett objektorienterat dator programmeringsspråk utvecklat av Microsoft . VB.NET är uppskattad för sin flexibilitet och användarvänlighet . Instruktioner
1
Starta Microsoft Visual Basic Express och klicka på " Nytt projekt ... " i den vänstra rutan på skärmen . Dubbelklicka på " Console Application . "
2
Tryck " Ctrl + A " och sedan trycka på " Delete " för att ta bort befintlig kod .
3
Kopiera och klistra in följande kod till din " Module1.vb " modul .
Import System.IO
Import System.IO.Compression
modul Module1
Sub main ( ) katalog
Dim zipDirPath As String = " C : \\ filesToZip "
Dim DirInfo Som DirectoryInfo = Ny DirectoryInfo ( zipDirPath ) katalog
För varje currentFileInfo Som FileInfo I DirInfo . GetFiles ( ) katalog
komprimera ( currentFileInfo ) katalog
Nästa
End Sub
Private Sub Komprimera ( ByVal currentFileInfo Som FileInfo ) katalog
Använda INFILE Som FileStream = currentFileInfo.OpenRead ( ) katalog p Om ( File.GetAttributes ( currentFileInfo.FullName ) Och FileAttributes.Hidden ) _
< > FileAttributes.Hidden Och currentFileInfo.Extension < > " . gz " Då
Använda outFile Som FileStream = File.Create ( currentFileInfo.FullName + " . gz " ) katalog
Använda Komprimera Som GZipStream = _
GZipStream ( outFile , CompressionMode.Compress ) katalog
inFile.CopyTo ( Komprimera ) katalog
Console.WriteLine ( " Komprimerad { 0 } från { 1 } till { 2 } byte . " , _
currentFileInfo.Name , currentFileInfo.Length.ToString ( ) , _
outFile.Length.ToString ( ) ) katalog
End Använda
End Använda
End If
End Använda
End Sub
ändmodul
4
Redigera följande kodrad och skriv din egen fil bana
Dim zipDirPath As String = . " C : \\ filesToZip " .
Tryck " F5 " för att köra ditt program
