Att veta hur man zip -filer med hjälp av Visual Basic. NET ( VB. NET ) kan du spara tid om du behöver komprimera en massa filer . Zip är ett filformat som används för filkomprimering . Filer är ofta zippade om de kommer att sändas via e-post för snabbare överföring . De är också zippade för att spara hårddiskutrymme. VB. NET är ett objektorienterat programmeringsspråk som har utvecklats av Microsoft . VB. NET är uppskattad för sin flexibilitet och användarvänlighet
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 tryck sedan på ” Ta bort ” för att undanröja befintliga koden .
3 .
Kopiera och klistra in följande kod till din ” Module1. vb ” modul .
Import System. IO
Import System. IO . Compression
Modul Module1
Sub Main ( )
Dim zipDirPath As String=” C : \ filesToZip ”
Dim DirInfo Som DirectoryInfo=Nya DirectoryInfo ( zipDirPath )
For Each currentFileInfo Som FileInfo I DirInfo . GetFiles ( )
Komprimera ( currentFileInfo )
Nästa
End Sub
Private Sub Komprimera ( ByVal currentFileInfo Som FileInfo )
Använda infil Som FileStream=currentFileInfo. OpenRead ( )
Om ( File. GetAttributes ( currentFileInfo. FullName ) Och FileAttributes. Hidden ) _
<> FileAttributes. Hidden Och currentFileInfo. Extension <> ” . gz ” Då
Använda utfil Som FileStream=Fil . Skapa ( currentFileInfo. FullName + ” . gz ” )
Använda komprimera så GZipStream=_
New GZipStream ( utfil , CompressionMode. Compress )
inFile. CopyTo ( komprimera)
Console. WriteLine ( ” Compressed { 0 } från {1} {2 } byte . ” _
currentFileInfo. Name , currentFileInfo . Length. ToString ( ) , _
utfil . Length. ToString ( ) )
ändan med
ändan med
End If
ändan med
End Sub
ändmodul
4 .
Redigera följande kodrad och skriver egna sökvägen .
Dim zipDirPath As String=” C : \ filesToZip ”
Tryck ”F5 ” för att köra ditt program .
コメント