• 
  

  hur till zip en fil i vb.net

  
  

Det kan vara bra att veta hur man komprimera filer med hjälp av Visual Basic. NET ( VB. NET ) om du ofta har att komprimera filer manuellt . En Zip -fil är ett format för datakomprimering. Filer är vanligtvis komprimeras för att spara utrymme på hårddisken eller innan den skickas via e-post . VB. NET är ett objektorienterat programmeringsspråk konstruerad av Microsoft som är ganska lätt att använda och lära . I några få steg kan du skriva VB. NET kod för att komprimera en fil
1
Starta Microsoft Visual . Grundläggande Express och klicka på " Nytt projekt . . . " i den vänstra rutan på skärmen . Dubbelklicka på " Windows Forms Application . "
2 .
Dubbelklicka på " knappen " på "Verktyg " om du vill skapa en ny -knappen. Dubbelklicka på " Button1 "för att öppna " Form1. vb " modul .



Tryck " Ctrl + A " och tryck på " Delete " för att radera all kod .
3 .
Kopiera och klistra in följande kod på din " Form1. vb " modul .



Import System. IO

Import System. IO. Compression

public class Form1



Private Sub Button1_Click ( ByVal avsändaren som System . Objekt , ByVal e Som System. EventArgs ) hanterar Button1. Click

Dim dirpath As String=" C : \ Bank "

Dim DI som DirectoryInfo=Nya DirectoryInfo ( dirpath )



For Each fi Som FileInfo I di. GetFiles ( )

Komprimera (fi )

Nästa

End Sub

Private Sub Komprimera ( ByVal fi Som FileInfo )

Använda infil Som FileStream=fi. OpenRead ( )

Om ( File. GetAttributes ( fi. FullName ) Och FileAttributes . Dold ) _

<> FileAttributes. Hidden Och fi. Extension <> " . gz " Då

Använda utfil Som FileStream=File. Create ( fi. Fullname + " . gz " )

Använda komprimera så GZipStream=_

New GZipStream ( utfil , CompressionMode. Compress )

inFile. CopyTo ( Komprimera )

Console. WriteLine ( " Compressed { 0 } från {1} {2 } byte . " _

fi . Namn , fi. Length. ToString ( ) , _

outFile. Length. ToString ( ) )

ändan med

End Använda

End If

ändan med

End Sub

End klass
4 .

Redigera följande kodrad och ange sökvägen till de filer du vill komprimera



Dim dirpath As String=. "C: \ Bank "



Tryck "F5 " för att köra dina program och klicka på " Button1 . "

Previous：nothing Next：hur du redigerar dynamisk html

Relaterade artiklar