hvordan man kan zip -filer ved hjælp af vb netto

Indlæg af Dan Dejligbjerg     opdateret: 2011-10-31

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 anvendes til filkomprimering . Filer er ofte zip , hvis de kommer til at blive sendt via e-mail for hurtigere overførsel . De er også zippet at spare plads på harddisken . VB. NET er et objekt-orienteret programmering sprog udviklet af Microsoft. VB. NET er værdsat for sin fleksibilitet og brugervenlighed
1 .
Start Microsoft Visual Basic Express og klik på " Nyt projekt . . . " i venstre rude på skærmen . Dobbeltklik på " Console Application ".
2 .
Tryk "Ctrl + A " og derefter trykke "Delete "for at fjerne eksisterende kode .
3 .

Kopier 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 I DirInfo . GetFiles ( )
Komprimere ( currentFileInfo )
Næste
End Sub

Private Sub Komprimere ( ByVal currentFileInfo Som Fileinfo )
Brug infile Som FileStream=currentFileInfo. OpenRead ( )
Hvis ( File. GetAttributes ( currentFileInfo. FullName ) Og FileAttributes. Hidden ) _
<> FileAttributes. Hidden Og currentFileInfo. Extension <> " . gz " Så
Brug outfile Som FileStream=Fil . Opret ( currentFileInfo. FullName + " . gz " )
Brug Komprimer Som GZipStream=_
New GZipStream ( outfile , CompressionMode. Compress )
inFile. CopyTo ( komprimere)
Console. WriteLine ( " Compressed { 0 } fra { 1 } til { 2 } bytes . " _
currentFileInfo. Name , currentFileInfo . Length. ToString ( ) , _
outfile . Length. ToString () )
End Brug
End Brug
End If
End Brug

End Sub

endemodul
4 .
Rediger følgende linje kode og skriv din egen sti .

Dim zipDirPath As String=" C : \ filesToZip "

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


Previous:hvordan du udskriver en pdf- fil ved hjælp af vb Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change