Gérer le format 7-zip

**Franck.H** · 01/10/2013, 09h06

Sur un projet, je dois prendre en charge le format 7-zip (*.7z). J'ai trouvé le wrapper pour C# (http://www.codeproject.com/Articles/...p-Archive-DLLs) que j'ai ajouté à mon projet (j'en ai créé un projet DLL) et j'ai retranscrit (ou du moins essayé) le code exemple de C# à VB.Net.

Le code me semble pas trop mal mais seulement, je n'arrive pas à ajouter une référence vers les DLLs que j'ai récupérées sur le site officiel (http://www.7-zip.org/download.html) :

7za.dll - library for working with 7z archives.
7zxa.dll - library for extracting from 7z archives.

de l'archive http://downloads.sourceforge.net/sev...7z920_extra.7z

Mon message d'erreur:

Une référence à .... 7zxa.dll n'a pu être ajoutée. Vérifiez que ce fichier est accessible et qu'il s'agit d'un assembly ou d'un composant COM valide.

Ce wrapper est-il prévu pour une autre DLL que je n'ai pas encore trouvé ?

[EDIT]
J'ai testé avec les DLLs que j'ai récupéré en installant le programme 7-Zip mais c'est la même erreur d'ajout de référence

**chamamo** · 01/10/2013, 11h22

As-tu regardé cette librairie? c'est du code managé.

**Franck.H** · 01/10/2013, 11h31

Non, je vais y jeter un œil

**Franck.H** · 01/10/2013, 11h57

J'ai téléchargé la DLL SevenZipSharp.dll (que j'ai référencé sur le projet) qu'ils proposent sur leur site et j'ai tapé ce bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub DecompressSevenZipFile(ByVal FileToDecompress As String, ByVal ExtractDir As String)
        Dim Tmp As New SevenZipExtractor(FileToDecompress)
 
        Try
            For i = 0 To Tmp.ArchiveFileData.Count - 1
                Tmp.ExtractFiles(ExtractDir, Tmp.ArchiveFileData(i).Index)
            Next
        Catch ex As Exception
 
        End Try
    End Sub