[ { "Id": "602832", "ThreadId": "255267", "Html": "

Hi Guys,

\n

First of all, the Library is great.

\n

Now my problem: I'm using VB.NET and I try to add files to specific folders in the ZipFile (named zip1). This adding works.

\n

I catched the Example of zipping Directory and showing Progressbars. This example works great for me.

\n

But when I change the AddDirectory-Method with a for loop and the AddItem method, the Invoke method of ProgressBar1 in the StepArchiveProgress method gets an ArgumentOutOfRangeException (\"Value is -1\").

\n

This happens when the zip1_SaveProgress gets the \"Saving_AfterWriteEntry\" Event

\n

Here is my code:

\n

 

\n
\n
Imports System.IO\nImports Ionic.Zip\nImports System.Threading\nImports System.ComponentModel\n\nPublic Class frmExport\n\n    Private _backgroundWorker1 As System.ComponentModel.BackgroundWorker\n    Private _saveCanceled As Boolean\n    Private _totalBytesAfterCompress As Long\n    Private _totalBytesBeforeCompress As Long\n    Private _nFilesCompleted As Integer\n    Private _progress2MaxFactor As Integer\n    Private _entriesToZip As Integer\n\n    Private _DirToZip As String = \"\"\n    Private _ZipToCreate As String = \"\"\n    Private _files(,) As String\n\n    Private modus As Integer = 0 ' 0 - Files, 1 - Directory\n\n    ' Delegates for invocation of UI from other threads\n    Private Delegate Sub SaveEntryProgress(ByVal e As SaveProgressEventArgs)\n    Private Delegate Sub ButtonClick(ByVal sender As Object, ByVal e As EventArgs)\n\n    Public Sub setFolders(ByVal folder As String, ByVal destination As String)\n        _DirToZip = folder\n        _ZipToCreate = destination\n    End Sub\n\n    Public Sub setFileList(ByVal fileList(,) As String, ByVal destination As String)\n        _ZipToCreate = destination\n        _files = fileList\n\n    End Sub\n\n\n\n    Public Sub Export(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load\n\n        Select Case modus\n            Case 0\n                ' Files\n                Me.ZipFiles()\n            Case 1\n                ' Directory\n                Me.ZipFolder()\n        End Select\n\n\n    End Sub\n    Private Sub ZipFiles()\n        If ((Not _ZipToCreate Is Nothing) AndAlso (_ZipToCreate <> \"\")) Then\n            If File.Exists(_ZipToCreate) Then\n                If (MessageBox.Show(String.Format(\"The file you have specified ({0}) already exists.  Do you want to overwrite this file?\", _\n                                                  _ZipToCreate), \"Confirmation is Required\", _\n                                                  MessageBoxButtons.YesNo, MessageBoxIcon.Question) <> DialogResult.Yes) Then\n                    Return\n                End If\n                File.Delete(_ZipToCreate)\n            End If\n            Me._saveCanceled = False\n            Me._nFilesCompleted = 0\n            Me._totalBytesAfterCompress = 0\n            Me._totalBytesBeforeCompress = 0\n            Me.btnCancel.Enabled = True\n            Me.lblStatus.Text = \"Zipping...\"\n            Dim options As New WorkerOptions\n            options.ZipName = _ZipToCreate\n\n            _backgroundWorker1 = New System.ComponentModel.BackgroundWorker()\n            _backgroundWorker1.WorkerSupportsCancellation = False\n            _backgroundWorker1.WorkerReportsProgress = False\n            AddHandler Me._backgroundWorker1.DoWork, New DoWorkEventHandler(AddressOf Me.DoSave)\n            _backgroundWorker1.RunWorkerAsync(options)\n\n        End If\n    End Sub\n\n    Private Sub ZipFolder()\n        Try\n            Dim folderName As String = _DirToZip\n            If (((Not folderName Is Nothing) AndAlso (folderName <> \"\")) AndAlso ((Not _ZipToCreate Is Nothing) AndAlso (_ZipToCreate <> \"\"))) Then\n                If File.Exists(_ZipToCreate) Then\n                    If (MessageBox.Show(String.Format(\"The file you have specified ({0}) already exists.  Do you want to overwrite this file?\", _\n                                                      _ZipToCreate), \"Confirmation is Required\", _\n                                                      MessageBoxButtons.YesNo, MessageBoxIcon.Question) <> DialogResult.Yes) Then\n                        Return\n                    End If\n                    File.Delete(_ZipToCreate)\n                End If\n                Me._saveCanceled = False\n                Me._nFilesCompleted = 0\n                Me._totalBytesAfterCompress = 0\n                Me._totalBytesBeforeCompress = 0\n                Me.btnCancel.Enabled = True\n                Me.lblStatus.Text = \"Zipping...\"\n                Dim options As New WorkerOptions\n                options.ZipName = _ZipToCreate\n                options.Folder = folderName\n\n                _backgroundWorker1 = New System.ComponentModel.BackgroundWorker()\n                _backgroundWorker1.WorkerSupportsCancellation = False\n                _backgroundWorker1.WorkerReportsProgress = False\n                AddHandler Me._backgroundWorker1.DoWork, New DoWorkEventHandler(AddressOf Me.DoSave)\n                _backgroundWorker1.RunWorkerAsync(options)\n\n            End If\n        Catch ex As Exception\n\n        End Try\n        \n    End Sub\n\n\n    Private Sub DoSave(ByVal sender As Object, ByVal e As DoWorkEventArgs)\n        Dim options As WorkerOptions = e.Argument\n        Try\n            Using zip1 As ZipFile = New ZipFile\n                Select Case modus\n                    Case 0\n                        ' Files to add to current Project\n\n                        Dim i As Integer\n                        For i = 0 To _files.GetUpperBound(0)\n                            ' will add Files or Dirs, recursing and flattening subdirectories.\n                            zip1.AddItem(_files(i, 1), _files(i, 0))\n                        Next i\n                    Case 1\n                        ' Directory\n                        zip1.AddDirectory(options.Folder)\n                End Select\n                \n                Me._entriesToZip = zip1.EntryFileNames.Count\n                Me.SetProgressBars()\n                AddHandler zip1.SaveProgress, New EventHandler(Of SaveProgressEventArgs)(AddressOf Me.zip1_SaveProgress)\n                zip1.Save(options.ZipName)\n            End Using\n        Catch exc1 As Exception\n            MessageBox.Show(String.Format(\"Exception while zipping: {0}\", exc1.Message))\n            Me.btnCancel_Click(Nothing, Nothing)\n        End Try\n    End Sub\n\n\n    Private Sub zip1_SaveProgress(ByVal sender As Object, ByVal e As SaveProgressEventArgs)\n        If Me._saveCanceled Then\n            e.Cancel = True\n            Return\n        End If\n\n        Select Case e.EventType\n            Case ZipProgressEventType.Saving_AfterWriteEntry\n                Me.StepArchiveProgress(e)\n                Exit Select\n            Case ZipProgressEventType.Saving_Completed\n                Me.SaveCompleted()\n                Exit Select\n            Case ZipProgressEventType.Saving_EntryBytesRead\n                Me.StepEntryProgress(e)\n                Exit Select\n            Case Else\n                MsgBox(Me.ProgressBar1.Value)\n        End Select\n    End Sub\n\n\n\n    Private Sub StepArchiveProgress(ByVal e As SaveProgressEventArgs)\n        If Me.ProgressBar1.InvokeRequired Then\n            Me.ProgressBar1.Invoke(New SaveEntryProgress(AddressOf Me.StepArchiveProgress), New Object() {e})\n        ElseIf Not Me._saveCanceled Then\n            Me._nFilesCompleted += 1\n            Me.ProgressBar1.PerformStep()\n            Me._totalBytesAfterCompress = (Me._totalBytesAfterCompress + e.CurrentEntry.CompressedSize)\n            Me._totalBytesBeforeCompress = (Me._totalBytesBeforeCompress + e.CurrentEntry.UncompressedSize)\n            ' progressBar2 is the one dealing with the item being added to the archive\n            ' if we got this event, then the add of that item (or file) is complete, so we \n            ' update the progressBar2 appropriately.\n            Me.ProgressBar2.Value = Me.ProgressBar2.Maximum = 1\n            MyBase.Update()\n        End If\n    End Sub\n\n\n    Private Sub SaveCompleted()\n        If Me.lblStatus.InvokeRequired Then\n            Me.lblStatus.Invoke(New MethodInvoker(AddressOf SaveCompleted))\n            'Me.lblStatus.Invoke(New MethodInvoker(Me, DirectCast(Me.SaveCompleted, IntPtr)))\n        Else\n            Me.lblStatus.Text = String.Format(\"Done, Compressed {0} files, {1:N0}% of original\", Me._nFilesCompleted, ((100 * Me._totalBytesAfterCompress) / CDbl(Me._totalBytesBeforeCompress)))\n            Me.ResetState()\n            Me.Close()\n        End If\n    End Sub\n\n\n    Private Sub StepEntryProgress(ByVal e As SaveProgressEventArgs)\n        If Me.ProgressBar2.InvokeRequired Then\n            Me.ProgressBar2.Invoke(New SaveEntryProgress(AddressOf Me.StepEntryProgress), New Object() {e})\n        ElseIf Not Me._saveCanceled Then\n            If (Me.ProgressBar2.Maximum = 1) Then\n                Dim entryMax As Long = e.TotalBytesToTransfer\n                Dim absoluteMax As Long = &H7FFFFFFF\n                Me._progress2MaxFactor = 0\n                Do While (entryMax > absoluteMax)\n                    entryMax = (entryMax / 2)\n                    Me._progress2MaxFactor += 1\n                Loop\n                If (CInt(entryMax) < 0) Then\n                    entryMax = (entryMax * -1)\n                End If\n                Me.ProgressBar2.Maximum = CInt(entryMax)\n                Me.lblStatus.Text = String.Format(\"{0} of {1} files...({2})\", (Me._nFilesCompleted + 1), Me._entriesToZip, e.CurrentEntry.FileName)\n            End If\n            Dim xferred As Integer = CInt((e.BytesTransferred >> Me._progress2MaxFactor))\n            Me.ProgressBar2.Value = IIf((xferred >= Me.ProgressBar2.Maximum), Me.ProgressBar2.Maximum, xferred)\n            Me.lblStatus.Text = String.Format(\"{0} of {1} files...({2})\", (Me._nFilesCompleted + 1), Me._entriesToZip, e.CurrentEntry.FileName)\n            MyBase.Update()\n        End If\n    End Sub\n\n\n    Private Sub ResetState()\n        Me.btnCancel.Enabled = False\n        Me.ProgressBar1.Value = 0\n        Me.ProgressBar2.Value = 0\n        Me.Cursor = Cursors.Default\n    End Sub\n\n\n\n    Private Sub SetProgressBars()\n        If Me.ProgressBar1.InvokeRequired Then\n            'Me.ProgressBar1.Invoke(New MethodInvoker(Me, DirectCast(Me.SetProgressBars, IntPtr)))\n            Me.ProgressBar1.Invoke(New MethodInvoker(AddressOf SetProgressBars))\n        Else\n            Me.ProgressBar1.Value = 0\n            Me.ProgressBar1.Maximum = Me._entriesToZip\n            Me.ProgressBar1.Minimum = 0\n            Me.ProgressBar1.Step = 1\n            Me.ProgressBar2.Value = 0\n            Me.ProgressBar2.Minimum = 0\n            Me.ProgressBar2.Maximum = 1\n            Me.ProgressBar2.Step = 2\n        End If\n    End Sub\n\n\n    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click\n        If Me.lblStatus.InvokeRequired Then\n            Me.lblStatus.Invoke(New ButtonClick(AddressOf Me.btnCancel_Click), New Object() {sender, e})\n        Else\n            Me._saveCanceled = True\n            Me.lblStatus.Text = \"Canceled...\"\n            Me.ResetState()\n            Me.Close()\n        End If\n    End Sub\n\nEnd Class\n\nPublic Class WorkerOptions\n    ' Fields\n    'Public Comment As String\n    'Public CompressionLevel As CompressionLevel\n    'Public Encoding As String\n    'Public Encryption As EncryptionAlgorithm\n    Public Folder As String\n    'Public Password As String\n    'Public Zip64 As Zip64Option\n    'Public ZipFlavor As Integer\n    Public ZipName As String\nEnd Class\n
\n
\n

 

\n

Can you see any mistake or can you give me an example, which shows how to zip files using progressbars?

", "PostedDate": "2011-04-26T03:44:12.48-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "603431", "ThreadId": "255267", "Html": "

I already figured out, there is a problem with this:

\r\n
Me.ProgressBar2.Maximum = 1\r\nMe.ProgressBar2.Step = 2
\r\n

When I set the Maximum to 2 and the Step to 1, it seems to work.

", "PostedDate": "2011-04-27T01:55:44.503-07:00", "UserRole": null, "MarkedAsAnswerDate": null } ]