Ako Zip súborov pomocou jazyka Visual Basic Net

Vedieť , ako sa zips súbory pomocou jazyka Visual Basic.NET ( VB.NET ) vám môže ušetriť čas, ak budete potrebovať komprimovať veľké množstvo súborov . Zips je súborový formát používaný pre kompresiu súborov . Súbory sú často na zips , ak sa chystáte byť zaslané prostredníctvom e - mailu pre rýchlejší prenos . Sú tiež na zips pre uloženie na pevnom disku . VB.NET je objektovo orientovaný programovací jazyk vyvinutý spoločnosťou Microsoft . VB.NET je cenený pre svoju flexibilitu a jednoduché použitie . Pokyny dovolená 1

Spustite program Microsoft Visual Basic Express a kliknite na tlačidlo " Nový projekt ... " na ľavom paneli obrazovky . Double - kliknite na " Aplikácia konzoly . "
2

Stlačte tlačidlo " Ctrl + A " a potom stlačte tlačidlo " Delete " odstrániť existujúci kód .
3

Kopírovanie a vložte nasledujúci kód do modulu " Module1.vb " .

Imports System.IO

Dovoz System.IO.Compression

module Module1

Sub main ( )

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

Dim DirInfo Ako DirectoryInfo = Nové DirectoryInfo ( zipDirPath )

každý currentFileInfo Ako Fileinfo V DirInfo . GetFiles ( )

Compress ( currentFileInfo )

Ďalšie

End Sub

Private Sub Compress ( byval currentFileInfo Ako Fileinfo )

použitie inSoubor ako FileStream = currentFileInfo.OpenRead ( )

( File.GetAttributes ( currentFileInfo.FullName ) A FileAttributes.Hidden ) _

< > FileAttributes.Hidden A currentFileInfo.Extension < > " . gz " Potom

Použitie outSoubor ako FileStream = File.Create ( currentFileInfo.FullName + " . gz " )

Použitie Compress ako GZipStream = _

GZipStream ( outSoubor , CompressionMode.Compress )

inFile.CopyTo ( Compress )

Console.WriteLine ( " Compressed { 0 } z { 1 } až { 2 } bajtov . " , _

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

outFile.Length.ToString ( ) )

Koniec Použitie

End Použitie

End If

End Použitie

End Sub End Module

4

Upraviť nasledujúci riadok kódu a zadajte vlastný súbor . Cesta

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

Stlačte " F5 " spustiť program

• Predchádzajúca strana: Ako rozpoznať kompresného Typ súboru 
• Ďalšia strana: Ako obnoviť súbory chránené heslom Zip