Å vite hvordan å zip filer ved hjelp av Visual Basic.NET ( VB.NET ) kan du spare tid hvis du trenger å komprimere mange filer . Zip er et filformat som brukes for fil- komprimering. Filene er ofte pakket om de kommer til å bli sendt via e-post for raskere overføring . De er også glidelås for å spare harddiskplass. VB.NET er et objektorientert programmeringsspråk utviklet av Microsoft. VB.NET er verdsatt for sin fleksibilitet og brukervennlighet . Instruksjoner
en

start Microsoft Visual Basic Express og klikk "New Project ... " på den venstre ruten på skjermen. Dobbeltklikk på " Console Application. "
2

Trykk " Ctrl + A" og trykk deretter på "Slett " for å fjerne eksisterende kode .
3

Kopier og lim inn følgende kode til din " Module1.vb " modulen.

Import System.IO

Import System.IO.Compression

module Module1

Sub main ( )

Dim zipDirPath As String = "C : \\ filesToZip "

Dim DirInfo Som DirectoryInfo = Ny DirectoryInfo ( zipDirPath )

Hver currentFileInfo Som FileInfo I DirInfo . GetFiles ( )

Compress ( currentFileInfo )

Neste

End Sub

Private Sub Compress ( ByVal currentFileInfo Som FileInfo )

hjelp iNFILE Som FileStream = currentFileInfo.OpenRead ( )
p Hvis ( File.GetAttributes ( currentFileInfo.FullName ) og FileAttributes.Hidden ) _

< > FileAttributes.Hidden Og currentFileInfo.Extension < > " . gz " Da

Bruk utfil Som FileStream = File.Create ( currentFileInfo.FullName + " . gz ")

hjelp Komprimer Som GZipStream = _

Ny GZipStream ( utfil , CompressionMode.Compress )

inFile.CopyTo ( Komprimer )

Console.WriteLine ( "Komprimert { 0 } fra { 1 } til { 2 } bytes . ", _

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

outFile.Length.ToString ( ) )

End hjelp

End hjelp

End If

End hjelp

End Sub

End Module
4

Rediger følgende linje med kode og skriv din egen fil banen

Dim zipDirPath As String = . "C : \\ filesToZip " .

Trykk " F5 " for å kjøre programmet