Décompresser une archive rar [VB.NET] [Résolu]
cs_Anakin79
- Messages postés
- 88
- Date d'inscription
- mercredi 9 juin 2010
- Dernière intervention
- 9 novembre 2010
- Messages postés
- 88
- Date d'inscription
- mercredi 9 juin 2010
- Dernière intervention
- 9 novembre 2010
A voir également:
- Vb net winrar
- Visual Basic / VB.NET : Decompresser fichier rar avec unrar.dll - b3 - CodeS SourceS - Guide
- Visual Basic / VB.NET : Décompresser en .net plusieurs formats populaires d'archivage (rar, z - Guide
- Visual Basic / VB.NET : Gestion d'archives - CodeS SourceS - Guide
- Visual Basic / VB.NET : Compresser/décompresser des fichiers zip - CodeS SourceS - Guide
- Visual Basic / VB.NET : [.net2] compression/décompression gzip de fichier grâce à - Guide
6 réponses
- Messages postés
- 88
- Date d'inscription
- mercredi 9 juin 2010
- Dernière intervention
- 9 novembre 2010
J'ai trouver un code :
Sur le site, il y a écrit que je dois passer en paramètres le chemin complet du fichier GZip à décompresser, et ensuite le chemin de destination du fichier qui va être décompressé.
Mais je ne sais pas comment on fais
Imports System.IO Imports System.IO.Compression
Public Function decompression(ByVal cheminSource As String, ByVal cheminDestination As String) As Boolean ' cheminSource : chemin complet du fichier compressé ' cheminDestination : chemin complet du fichier où le fichier doit être décompressé Try 'Lecture du fichier compresse Dim monFileStream As New FileStream(cheminSource, FileMode.Open) ' Données du fichier placées dans un GZipStream Dim monGzipStream As New GZipStream(monFileStream, CompressionMode.Decompress) ' Tableau qui va contenir la taille du fichier Dim tailleOctets(3) As Byte ' Positionnement dans le Stream pour récupérer la taille Dim position As Integer = CInt(monFileStream.Length - 4) monFileStream.Position = position ' Récupération de la taille du fichier monFileStream.Read(tailleOctets, 0, 4) ' Repositionnement en début du Stream monFileStream.Position = 0 ' Conversion de la taille du fichier en entier Dim tailleFichier As Integer = BitConverter.ToInt32(tailleOctets, 0) ' Dimesionnement du buffer Dim buffer(tailleFichier + 100) As Byte ' Offset qui permettra de se repérer dans le Stream Dim monOffset As Integer = 0 While (True) ' Les données sont décompressées et placées dans le buffer Dim decompressionOctets As Integer = monGzipStream.Read(buffer, monOffset, 100) ' Tant qu'il reste des données on continue If (decompressionOctets = 0) Then Exit While End If ' On icrémente l'offset pour ne pas repartir de 0 à chaque fois... monOffset += decompressionOctets End While ' Création du fichier décompressé monFileStream = New FileStream(cheminDestination, FileMode.Create) ' Ecriture des données décomrpessées dans le fichier monFileStream.Write(buffer, 0, tailleFichier - 1) ' Efface les données en mémoire tampon monFileStream.Flush() ' Fermeture des Streams monFileStream.Close() monGzipStream.Close() Return True Catch ex As Exception MessageBox.Show(ex.Message) Return False End Try End Function
Sur le site, il y a écrit que je dois passer en paramètres le chemin complet du fichier GZip à décompresser, et ensuite le chemin de destination du fichier qui va être décompressé.
Mais je ne sais pas comment on fais
- Messages postés
- 88
- Date d'inscription
- mercredi 9 juin 2010
- Dernière intervention
- 9 novembre 2010
- Messages postés
- 88
- Date d'inscription
- mercredi 9 juin 2010
- Dernière intervention
- 9 novembre 2010
- Messages postés
- 88
- Date d'inscription
- mercredi 9 juin 2010
- Dernière intervention
- 9 novembre 2010
- Messages postés
- 2859
- Date d'inscription
- mardi 15 avril 2003
- Dernière intervention
- 26 novembre 2013
Ce code est pour les archives GZip et pas pour les archives RAR, ca ne fonctionnera pas...
Les archives RAR sont la propriété des auteurs de Winrar, donc si tu veux ouvrir un fichier RAR tu peux te servir de leurs DLL mais il faut que tu ai une licence de Winrar, de plus les DLL ne t'appartenant pas ton programme ne pourra jamais être distribué ou vendu publiquement.
L'autre solution est de créer toi même une classe décompessant les rar, mais bon courage...
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.
Les archives RAR sont la propriété des auteurs de Winrar, donc si tu veux ouvrir un fichier RAR tu peux te servir de leurs DLL mais il faut que tu ai une licence de Winrar, de plus les DLL ne t'appartenant pas ton programme ne pourra jamais être distribué ou vendu publiquement.
L'autre solution est de créer toi même une classe décompessant les rar, mais bon courage...
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.