Dézipper une archive

Résolu

gege1505 Messages postés 54 Date d'inscription lundi 2 novembre 2009 Statut Membre Dernière intervention 7 août 2012 - 20 juin 2012 à 16:22
gege1505 Messages postés 54 Date d'inscription lundi 2 novembre 2009 Statut Membre Dernière intervention 7 août 2012 - 20 juin 2012 à 18:29

Bonjour je sais que ce sujet est posté 14 fois par jour sur tous les forums, mais je n'arrive pas à trouver la solution.
J'aimerais dézipper une archive zip ou rar.

J'ai trouvé entre autre cette fonction, ici même sur ce site :

Public Sub ExtractArchive(ByVal zipFilename As String, ByVal ExtractDir As String)
        Dim Redo As Integer = 1
        Dim MyZipInputStream As ZipInputStream
        Dim MyFileStream As FileStream
        MyZipInputStream = New ZipInputStream(New FileStream(zipFilename, FileMode.Open, FileAccess.Read))
        Dim MyZipEntry As ZipEntry = MyZipInputStream.GetNextEntry
        Directory.CreateDirectory(ExtractDir)
        While Not MyZipEntry Is Nothing
            If (MyZipEntry.IsDirectory) Then
                Directory.CreateDirectory(ExtractDir & "" & MyZipEntry.Name)
            Else
                If Not Directory.Exists(ExtractDir & "" & Path.GetDirectoryName(MyZipEntry.Name)) Then
                    Directory.CreateDirectory(ExtractDir & "" & Path.GetDirectoryName(MyZipEntry.Name))
                End If
                MyFileStream = New FileStream(ExtractDir & "" & MyZipEntry.Name, FileMode.OpenOrCreate, FileAccess.Write)
                Dim count As Integer
                Dim buffer(4096) As Byte
                count = MyZipInputStream.Read(buffer, 0, 4096)
                While count > 0
                    MyFileStream.Write(buffer, 0, count)
                    count = MyZipInputStream.Read(buffer, 0, 4096)
                End While
                MyFileStream.Close()
            End If
            Try
                MyZipEntry = MyZipInputStream.GetNextEntry
            Catch ex As Exception
                MyZipEntry = Nothing
            End Try
        End While
        If Not (MyZipInputStream Is Nothing) Then MyZipInputStream.Close()
        If Not (MyFileStream Is Nothing) Then MyFileStream.Close()
    End Sub

Qui marche avec la biblio ICSharpZIP

Mais ça ne marche pas. Et en essayant d'autres techniques, DLLs, il y a toujours qqch qui plante.
C'est pour cela que je quémande votre aide ^^

A voir également:

Dézipper une archive
Créer une archive ✓ - Forum PHP
Enable-mailbox -archive - Forum C# / .NET
Dézipper fichiers .zip - Forum VB.NET
Decompression archive - Forum Javascript / DHTML
Zipper - Creer une archive - Forum Visual Basic 6

2 réponses

Réponse 1 / 2

Utilisateur anonyme
20 juin 2012 à 17:23

Bonjour,

Il y a bien cela

Réponse 2 / 2

gege1505 Messages postés 54 Date d'inscription lundi 2 novembre 2009 Statut Membre Dernière intervention 7 août 2012
20 juin 2012 à 18:29

ça marche merci ^^

Discussions similaires

Déplacer Email d'un dossier de la boite de reception vers la boite d'archive

Décompresser une archive rar [VB.NET]

Archive CLassLoader

Archiver un dossier en rar ou zip

Dézipper des fichiers

Votre réponse

Discussions similaires