• 
  

  hur till zip en fil i . NET

  
  

Zippa filer i Visual Basic. NET ( VB. NET ) är lika enkelt som utför någon annan fil funktion . Filer är generellt komprimeras för att spara utrymme på hårddisken eller innan den skickas över Internet för snabbare filöverföring . VB. NET är ett objektorienterat programmeringsspråk som har utvecklats av Microsoft . VB. NET är lätt att lära och använda för att skapa program i datorn,
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 på " Ctrl "+ " A ", tryck sedan på " Ta bort " för att ta bort den 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 zipD As String=" C : \ zipFileTemp \ "

Dim dInfo Som DirectoryInfo=Nya DirectoryInfo ( zipD )



For Each Finfo Som FileInfo I dInfo . GetFiles ( )

Komprimera ( Finfo )

Nästa



End Sub



Private Sub Komprimera ( ByVal Finfo Som FileInfo )

Använda dataInFile Som FileStream=fInfo. OpenRead ( )

Om ( File. GetAttributes ( Finfo . Fullname ) Och FileAttributes. Hidden ) _

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

Använda utfil Som FileStream=File. Create ( fInfo. FullName + " . gz " )

Använda komprimera så GZipStream=_

New GZipStream ( utfil , CompressionMode. Compress )

dataInFile. CopyTo ( komprimera)

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

fInfo. Name , fInfo. Length. ToString ( ) , _

outFile. Length. ToString ( ) )

ändan med

ändan med

End If

End Använda

End Sub



ändmodul
4 .
Redigera följande kodrad och skriv sökvägen till de filer du vill komprimera :



Dim zipD As String=" C : \ zipFileTemp \ "
5 .
Kör ditt program genom att trycka " F5 ".

Previous：nothing Next：hur du krypterar en fil i C #

Relaterade artiklar