RAR-Files entpacken geht nicht

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von gfcwfzkm.

    RAR-Files entpacken geht nicht

    Hi,

    ich habe gestern im Google mal zeugs eigetippt und bin auf dies hier gestossen:

    VB.NET-Quellcode

    1. Imports RARNET
    3. Public Class Form1
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    6. Dim dlg As OpenFileDialog = New OpenFileDialog()
    7. dlg.Title = "Unpack RAR Archive"
    8. dlg.CheckFileExists = True
    9. dlg.DefaultExt = "RAR"
    10. dlg.Filter = "RAR files (*.rar)|*.rar"
    11. Dim res As DialogResult = dlg.ShowDialog()
    12. If res = DialogResult.OK Then
    13. TextBox1.Text = dlg.FileName
    14. End If
    15. End Sub
    17. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    19. If TextBox1.TextLength < 1 Then Exit Sub
    20. If TextBox2.TextLength < 1 Then Exit Sub
    21. TextBox1.Enabled = False
    22. TextBox2.Enabled = False
    23. Button1.Enabled = False
    24. Button2.Enabled = False
    25. Dim d As New Decompressor(TextBox1.Text)
    26. AddHandler d.OnUnpack, AddressOf Unpacked
    27. AddHandler d.Unpacking, AddressOf InProgress
    28. d.UnPackAll(TextBox2.Text)
    32. End Sub
    34. Public Sub Unpacked(ByVal r As Decompressor.RAREntry)
    35. ToolStripLabel1.Visible = True
    36. ToolStripLabel1.Text = "Unpacked: " & r.FileName
    37. ' If u want to shorten the text and add "..."
    38. If ToolStripLabel1.Text.Length > 28 Then
    39. ToolStripLabel1.Text = ToolStripLabel1.Text.Substring(0, 28) + "..."
    40. End If
    41. End Sub
    43. Public Sub InProgress(ByVal fTotalFileSize As Long, ByVal fUnpacked As Long, ByRef Disposition As RARNET.Decompressor.RarDisposition)
    44. If fTotalFileSize = 0 Then Exit Sub
    45. ToolStripLabel2.Text = Format(fUnpacked / fTotalFileSize, "percent")
    46. ToolStripProgressBar1.Value = CInt(CDbl(Format(fUnpacked / fTotalFileSize)) * 100)
    47. Me.Refresh()
    48. End Sub
    50. Public Sub GetPath()
    51. Dim dlg2 As FolderBrowserDialog = New FolderBrowserDialog()
    52. Dim res2 As DialogResult = dlg2.ShowDialog()
    53. If res2 = DialogResult.OK Then
    54. TextBox2.Text = dlg2.SelectedPath
    55. End If
    56. End Sub
    58. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    59. If Not System.IO.File.Exists(Application.StartupPath & "\unrar.dll") Then
    60. MsgBox("Missing unpacking dll...")
    61. Application.Exit()
    62. End If
    63. ToolStripLabel1.Visible = False
    64. End Sub
    66. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    67. GetPath()
    68. End Sub
    69. End Class


    Der Fehler kommt beim entpacken (Siehe Anhang)
    Bilder

    • Unbenannt.PNG

      44,12 kB, 803×337, 180 mal angesehen

Facebook
Telefonspende