Dator > hur zip filer med vb net

  • hur zip filer med vb net


  • Att veta hur man zip -filer med hjälp av Visual Basic. NET ( VB. NET ) kan du spara tid om du behöver komprimera en massa filer . Zip är ett filformat som används för filkomprimering . Filer är ofta zippade om de kommer att sändas via e-post för snabbare överföring . De är också zippade för att spara hårddiskutrymme. VB. NET är ett objektorienterat programmeringsspråk som har utvecklats av Microsoft . VB. NET är uppskattad för sin flexibilitet och användarvänlighet
    1 .
    Starta Microsoft Visual Basic Express och klicka på " Nytt projekt . . . " i den vänstra rutan på skärmen . Dubbelklicka på " Console Application . "
    2 .
    Tryck " Ctrl + A " och tryck sedan på " Ta bort " för att undanröja befintliga koden .
    3 .

    Kopiera och klistra in följande kod till din " Module1. vb " modul .



    Import System. IO

    Import System. IO . Compression



    Modul Module1

    Sub Main ( )



    Dim zipDirPath As String=" C : \ filesToZip "

    Dim DirInfo Som DirectoryInfo=Nya DirectoryInfo ( zipDirPath )



    For Each currentFileInfo Som FileInfo I DirInfo . GetFiles ( )

    Komprimera ( currentFileInfo )

    Nästa

    End Sub



    Private Sub Komprimera ( ByVal currentFileInfo Som FileInfo )

    Använda infil Som FileStream=currentFileInfo. OpenRead ( )

    Om ( File. GetAttributes ( currentFileInfo. FullName ) Och FileAttributes. Hidden ) _

    <> FileAttributes. Hidden Och currentFileInfo. Extension <> " . gz " Då

    Använda utfil Som FileStream=Fil . Skapa ( currentFileInfo. FullName + " . gz " )

    Använda komprimera så GZipStream=_

    New GZipStream ( utfil , CompressionMode. Compress )

    inFile. CopyTo ( komprimera)

    Console. WriteLine ( " Compressed { 0 } från {1} {2 } byte . " _

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

    utfil . Length. ToString ( ) )

    ändan med

    ändan med

    End If

    ändan med

    End Sub



    ändmodul
    4 .
    Redigera följande kodrad och skriver egna sökvägen .



    Dim zipDirPath As String=" C : \ filesToZip "



    Tryck "F5 " för att köra ditt program .


Previous:nothing Next:hur man packar upp en fil i C #





Relaterade artiklar


  • hur man använder textrutor i Visual Basic
  • hur man installerar Windows Mobile 5.0 Pocket PC sdk
  • hur man använder Visual C 6
  • hur man använder mål tutorials
  • hur man extraherar en zip- fil med VBA
  • hur man beräknar upplösning med java script
  • hur man fråga från en Excel-ark med Visual Basic
  • hur man läser en kommaseparerad fil i Visual Basic
  • hur du skickar ett HTML- e med VB
  • hur man skapar ett XML-schema databas