Vide, hvordan man zip-filer ved hjælp af Visual Basic.NET ( VB.NET ) kan spare dig tid, hvis du har brug for at komprimere en masse filer . Zip er et filformat, der bruges til fil- komprimering. Filer er ofte lynes hvis de kommer til at blive sendt via e-mail for hurtigere overførsel. De er også zippet for at spare plads på harddisken. VB.NET er et objekt -orienteret computer programmeringssprog udviklet af Microsoft. VB.NET er værdsat for sin fleksibilitet og brugervenlighed. Instruktioner
1

Start Microsoft Visual Basic Express og klik på " Nyt projekt ... " på den venstre rude på skærmen. Dobbeltklik på " Console Application ".
2

Tryk på " Ctrl + A" og derefter trykke på "Slet " for at fjerne eksisterende kode .
3

Copy og indsæt følgende kode til din " Module1.vb "-modulet .

Import System.IO

Import System.IO.Compression

modul Module1

Sub main ()

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

Dim DirInfo Som DirectoryInfo = Ny DirectoryInfo ( zipDirPath )

For Each currentFileInfo Som Fileinfo In DirInfo . GetFiles ()

Komprimer ( currentFileInfo )

Næste

End Sub

Private Sub Komprimer ( ByVal currentFileInfo Som Fileinfo )

Brug INFILE Som FileStream = currentFileInfo.OpenRead ()
p Hvis ( File.GetAttributes ( currentFileInfo.FullName ) Og FileAttributes.Hidden ) _

< > FileAttributes.Hidden Og currentFileInfo.Extension < > " . gz " Så

Brug outfile Som FileStream = File.Create ( currentFileInfo.FullName + " . gz " )

Brug Komprimer Som GZipStream = _

Nyt GZipStream ( outfile , CompressionMode.Compress )

inFile.CopyTo ( komprimere)

Console.WriteLine ( "komprimeret {0} fra {1 } til { 2 } bytes . " _ < br >

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

outFile.Length.ToString () )

End Brug

End Brug

End If

End Brug

End Sub

End Module
4

Rediger følgende linje kode og skriv din egen fil path

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

Tryk på " F5 " for at køre dit program