Unzippen

  • Allgemein

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von XxMarcel12xX.

    bekomme 4 fehler
    1. Error 14 Argument not specified for parameter 'isStreamOwner' of 'Public Shared Sub Decompress(inStream As System.IO.Stream, outStream As System.IO.Stream, isStreamOwner As Boolean)'. C:\Users\Cecil\Music\SrcSamples\samples\vb\minibzip2\Main.vb 175 4 minibzip2

    2.Error 15 Argument not specified for parameter 'level' of 'Public Shared Sub Compress(inStream As System.IO.Stream, outStream As System.IO.Stream, isStreamOwner As Boolean, level As Integer)'. C:\Users\Cecil\Music\SrcSamples\samples\vb\minibzip2\Main.vb 186 4 minibzip2


    3.Error 16 Implicit conversion from 'Integer' to 'Boolean'. C:\Users\Cecil\Music\SrcSamples\samples\vb\minibzip2\Main.vb 186 46 minibzip2


    4.Error 17 Warning treated as error : Implicit conversion from 'Integer' to 'Boolean'. C:\Users\Cecil\Music\SrcSamples\samples\vb\minibzip2\Main.vb 186 46 minibzip2

    oder die #ZipLib :D
    Für die gibts etliche Tutorials.
    @m9898 und die #ZipLib hat auch etwas mehr Funktionen als deine ^^

    mfg
    Jetzt schnell und einfach das Zehnfingersystem mit Scribble 3 erlernen. Mehr Informationen und Download gibts hier. Redundancy2 - leichtgewichtige freie Cloudsoftware. Folge mir auf GitHub

    Okay... Unzipper jaa

    das erste was du machst ist eine form und eine classe die du ClassUnzip umnähnst

    in der classe schreibst du

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    3. Public Class ClassUnzip
    4. Private _file As String
    5. Private _folder As String
    6. Private _towhere As String
    7. Private _shell As Shell32.IShellDispatch2
    8. ''' <summary></summary>
    9. ''' <remarks></remarks>
    10. Public Event Unzipstart()
    11. ''' <summary></summary>
    12. ''' <remarks></remarks>
    13. Public Event UnzipFinishd()
    14. ''' <summary></summary>
    15. ''' <param name="file"></param>
    16. ''' <param name="towhere"></param>
    17. ''' <remarks></remarks>
    18. Public Sub New(ByVal file As String, ByVal towhere As String)
    19. _file = file
    20. _towhere = towhere
    21. _folder = Path.Combine(Path.GetDirectoryName(_file), _towhere)
    22. _shell = CreateObject("Shell.Application")
    23. End Sub
    24. ''' <summary></summary>
    25. ''' <returns></returns>
    26. ''' <remarks></remarks>
    27. Public Function UnzipNow() As Boolean
    28. If Directory.Exists(_folder) = False Then
    29. Directory.CreateDirectory(_folder)
    30. End If
    31. RaiseEvent Unzipstart()
    32. Dim temp As Shell32.Folder = _shell.NameSpace((_folder))
    33. If temp IsNot Nothing Then
    34. temp.CopyHere(_shell.NameSpace((_file)).Items)
    35. End If
    36. RaiseEvent UnzipFinishd()
    37. Return True
    38. End Function
    39. ''' <summary></summary>
    40. ''' <value></value>
    41. ''' <returns></returns>
    42. ''' <remarks></remarks>
    43. Public Property UnZipFile() As String
    44. Get
    45. Return _file
    46. End Get
    47. Set(ByVal value As String)
    48. _file = value
    49. End Set
    50. End Property
    51. ''' <summary></summary>
    52. ''' <value></value>
    53. ''' <returns></returns>
    54. ''' <remarks></remarks>
    55. Public Property UnzipTo() As String
    56. Get
    57. Return _towhere
    58. End Get
    59. Set(ByVal value As String)
    60. _towhere = value
    61. End Set
    62. End Property
    63. End Class




    und bei der form muss ein button hin und da musst du schreiben

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class Form1
    3. Private Sub KryptonButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton1.Click
    4. Using ofd As New OpenFileDialog
    5. ofd.Filter = "ZipFile|*.zip"
    6. If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
    7. Dim file As String = ofd.FileName
    8. Dim cu As New ClassUnzip(file, Path.Combine(Path.GetDirectoryName(file), "test_unzip_folder"))
    9. AddHandler cu.UnzipFinishd, AddressOf Unziped
    10. cu.UnzipNow()
    11. End If
    12. End Using
    13. End Sub
    14. Private Sub Unziped()
    15. MessageBox.Show("Unzipping finished")
    16. End Sub
    17. End Class




    so jetzt sind da ja fehler du musst ein neuen Verwis machen und der verweis ist in Com

    der verweis heißt Mircosoft Shell Controls And Automation

    ich hoffe ich konnte dir helfen

Facebook
Telefonspende