Hvordan Zip filer med VB Net

Å 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 filkomprimering. Filer er ofte pakket om de kommer til å bli sendt via e-post for raskere overføring. De er også pakket for å spare plass på harddisken. VB.NET er et objektorientert programmeringsspråk utviklet av Microsoft. VB.NET er verdsatt for sin fleksibilitet og brukervennlighet.

Bruksanvisning

1 Start Microsoft Visual Basic Express og klikk "New Project ..." på ruten til venstre på skjermen. Dobbeltklikk på "Console Application".

2 Trykk "Ctrl + A" og trykk "Slett" for å fjerne eksisterende kode.

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

importen System.IO

importen System.IO.Compression

modul module1

Sub Main()

Dim zipDirPath As String = "C: \ filesToZip"

Dim DirInfo Som DirectoryInfo = Ny DirectoryInfo (zipDirPath)

For hver currentFileInfo Som Fileinfo I DirInfo.GetFiles ()

Komprimer (currentFileInfo)

neste

End Sub

Private Sub Compress (ByVal currentFileInfo Som Fileinfo)

Bruke INFILE Som Filestream = currentFileInfo.OpenRead ()

If (File.GetAttributes (currentFileInfo.FullName) Og FileAttributes.Hidden) _

& Lt;> FileAttributes.Hidden Og currentFileInfo.Extension & lt;> ".gz" Da

Bruke utfil Som Filestream = File.Create (currentFileInfo.FullName + ".gz")

Bruke Rimer Som GZipStream = _

New GZipStream (utfil, CompressionMode.Compress)

inFile.CopyTo (Compress)

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

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

outFile.Length.ToString ())

Slutt å bruke

Slutt å bruke

Slutt om

Slutt å bruke

End Sub

End Module

4 Redigere følgende linje med kode og skriv din egen filbanen.

Dim zipDirPath As String = "C: \ filesToZip"

Trykk "F5" for å kjøre programmet.