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.