Décompressez le Fichier dans VB.net

Quelqu'un peut m'aider comment décompresser un fichier zip dans VB.Net?

im en utilisant "les Importations Shell32"

OriginalL'auteur kelvz | 2012-10-15

  1. 19

    Si vous jetez un oeil à cette CodeProject article, il devrait vous aider. Si vous rencontrez des problèmes spécifiques, vous devez mettre le code et le problème discription dans votre question.

    À partir de l'article ci-dessus:

    Sub UnZip()
    Dim sc As New Shell32.Shell()
    'Create directory in which you will unzip your files .
    IO.Directory.CreateDirectory("D:\extractedFiles") 
    'Declare the folder where the files will be extracted
    Dim output As Shell32.Folder = sc.NameSpace("D:\extractedFiles")
    'Declare your input zip file as folder  .
    Dim input As Shell32.Folder = sc.NameSpace("d:\myzip.zip")
    'Extract the files from the zip file using the CopyHere command .
    output.CopyHere(input.Items, 4)

End Sub

    lien pour Dossier.CopyHere Méthode

    Ou si vous êtes en utilisant .Net 4.5, vous pouvez utiliser le La Classe ZipFile

    Exemple de Lien:

    Imports System.IO
Imports System.IO.Compression

Module Module1

    Sub Main()
        Dim startPath As String = "c:\example\start" 
        Dim zipPath As String = "c:\example\result.zip" 
        Dim extractPath As String = "c:\example\extract"

        ZipFile.CreateFromDirectory(startPath, zipPath)

        ZipFile.ExtractToDirectory(zipPath, extractPath)
    End Sub 

End Module
    wow merci...
    La prochaine fois que vous choisissez une réponse, mais il y a une autre bonne question, au moins +1.

    OriginalL'auteur Mark Hall

  2. 6

    Je voudrais vous suggérer de télécharger http://dotnetzip.codeplex.com/ et ensuite l'utiliser comme ceci (exemple tiré de la documentation).

    Dim ZipToUnpack As String = "C1P3SML.zip"  
Dim TargetDir As String = "C1P3SML"  
Console.WriteLine("Extracting file {0} to {1}", ZipToUnpack, TargetDir)   
Using zip1 As ZipFile = ZipFile.Read(ZipToUnpack)   
    Dim e As ZipEntry   
    For Each e In zip1   
        e.Extract(TargetDir, ExtractExistingFileAction.OverwriteSilently)   
    Next  
End Using
    je vous remercie.. ill essayer 🙂
    il ne marche pas 🙁
    mon erreur est "MyExtractProgress"
    il suffit de retirer le AddHandler Ligne son seul but est de vous donner les progrès de votre extraction. Il est une autre méthode qui n'est pas visible jusqu'à ce que vous vous regardez dans le vb.net la documentation sur le dotnetzip site de codeplex
    ouais !!!! super thnx !

    OriginalL'auteur Karl-Johan Sjögren