http://sharpcompress.codeplex.com/downloads/get/571623</code>
voici mes codes:Imports SharpCompress.Archive.Rar Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dialog As New OpenFileDialog() OpenFileDialog1.Filter = "Fichier Winrar (*.rar)|*.rar" If DialogResult.OK = OpenFileDialog1.ShowDialog Then End If TextBox1.Text = OpenFileDialog1.FileName ListRAR(TextBox1.Text) End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged ListView1.View = View.Details ListView1.Columns.Add("NAME", 191, HorizontalAlignment.Left) ListView1.Columns.Add("SIZE", 100, HorizontalAlignment.Right) ListView1.Columns.Add("PACKED", 100, HorizontalAlignment.Right) ListView1.Columns.Add("CRC32", 100, HorizontalAlignment.Right) End Sub Private Sub ListRAR(ByVal rarName As String) Dim rarFile As RarArchive rarFile = RarArchive.Open(rarName) For i As Integer = 0 To rarFile.Entries.Count - 1 ListView1.Items.Add(rarFile.Entries(i).FilePath) ListView1.Items(i).SubItems.Add(Format(rarFile.Entries(i).Size, "### ### ### ##0")) ListView1.Items(i).SubItems.Add(Format(rarFile.Entries(i).CompressedSize, "### ### ### ##0")) ListView1.Items(i).SubItems.Add(Hex(rarFile.Entries(i).Crc)) Next rarFile.Dispose() End Sub Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Clear() ListView1.Clear() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() End Sub End Class
voici en image:
si vous avez besoin d'aide. laisser moi un mot.
cordialement zorro5959
http://www.vbfrance.com/codes/LISTER-CONTENU-FICHIER-RAR-SANS-DLL_17165.aspx</code>
comment je fait par rapport a mon logiciel?merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionhttp://www.vbfrance.com/codes/DECOMPRESSER-FICHIER-RAR-AVEC-UNRAR-DLL-B3_5062.aspx</code>
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ListView1.View = View.Details ListView1.GridLines = True ListView1.Columns.Add("NAME", 191, HorizontalAlignment.Left) ListView1.Columns.Add("SIZE", 100, HorizontalAlignment.Left) ListView1.Columns.Add("PACKED", 100, HorizontalAlignment.Left) ListView1.Columns.Add("CRC32", 100, HorizontalAlignment.Left) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dialog As New OpenFileDialog() OpenFileDialog1.Filter = "Fichier Winrar (*.rar)|*.rar" If DialogResult.OK = OpenFileDialog1.ShowDialog Then End If TextBox1.Text = OpenFileDialog1.FileName End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Clear() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() End Sub End Class
salut nhenry, j'ai regarder le liens que tu m'a donner et j'ai regarder c un compliquer pour moi. je voudrais si toi tu peut m'aider a résoudre mon problème.
si vous avez besoin d'aide. laisser moi un mot.
cordialement zorro5959