Hi Can someone please help with this. Its working but freezing up the UI so after googling for a while, It was brought to my attention that you need to invoke via delegate. I have no clue how to do that But tried my best. ANY help will greately be\r\n appreciated.
\r\nAlso, I have one large File that is over 3GB and it will not update the progressbar. Its it even possible to update the Progressbar with one large file?
\r\nThanks in advance.
\r\n\r\n
\r\n
Delegate Sub SetLabelTextInvokerZip(ByVal lblInfo As Label, ByVal Text As String, ByVal ProgBarZip As ProgressBar)
\r\n Sub SetLabelTextZip(ByVal lblInfo As Label, ByVal Text As String, ByVal ProgBarZip As ProgressBar)
\r\n If lblInfo.InvokeRequired = True Then
\r\n lblInfo.BeginInvoke(New SetLabelTextInvokerZip(AddressOf SetLabelTextZip), lblInfo, Text, ProgBarZip)
\r\n Else
\r\n lblInfo.Text = Text
\r\n ProgBarZip.Value = 0
\r\n End If
\r\n End Sub
\r\n
Sub Extract_Zip_Files()
\r\n Dim ZipToUnpack As String = "C:\\temp\\1.zip"
\r\n Dim DirectoryToExstractTo As String = "C:\\Temp\\Extract"
\r\n Dim ProgBarZip As Integer
\r\n SetLabelTextZip(lblInfo, "start")
Try
\r\n Using zip As ZipFile = ZipFile.Read(ZipToUnpack)
\r\n ProgressBar2.Maximum = zip.Entries.Count
\r\n Dim entry As ZipEntry
\r\n For Each entry In zip
\r\n lblInfo.Text = entry.FileName
\r\n entry.Extract(DirectoryToExstractTo, ExtractExistingFileAction.OverwriteSilently)
\r\n ProgressBar2.Value = ProgressBar2.Value + 1
\r\n ' sleep because it's too fast otherwise.
\r\n System.Threading.Thread.Sleep(50)
\r\n Next
\r\n ProgressBar1.Value = 0
\r\n SetLabelTextZip(lblInfo, "Done")
\r\n End Using
\r\n Catch ex As Exception
\r\n MsgBox("Exception: " & ex.ToString())
\r\n End Try
\r\n End Sub
Hi All,
\r\nI was able to get this to work after googling for a few days. The only challenge is that the progress bar does not get update. Can anyone help with it.
\r\nI tried the following in the invoke section to no avail. ANY help will be greatly appreciated.
\r\n' Me.ProgressBar1.Value = 100 * e.BytesTransferred / e.TotalBytesToTransfer
\r\n' Me.ProgressBar1.Value = 100 * TranferTotal / TotalSize
\r\n' lblResults.Text = CStr(100 * (e.BytesTransferred / e.TotalBytesToTransfer).ToString("#,##0.00")) & "% Complete"
\r\n'ProgressBar1.Value = \r\nConvert.ToInt32(100 * e.BytesTransferred / e.TotalBytesToTransfer)
\r\n\r\n
ImportsIonic.Zip
\r\nImports System.Threading
\r\n\r\n
Public\r\nClass Form1
\r\nPrivate\r\nSub Button1_Click(ByVal sender\r\nAs System.Object,\r\nByVal e As System.EventArgs)\r\nHandles Button1.Click
\r\nBackgroundWorker1.RunWorkerAsync()
\r\nEnd\r\nSub
\r\n\r\n
Private\r\nSub BackgroundWorker1_DoWork(sender \r\nAs System.Object, e \r\nAs System.ComponentModel.DoWorkEventArgs)\r\nHandles BackgroundWorker1.DoWork
\r\nlblResults.Text =\r\nNothing
\r\nDotNetZip_Extract_With_ProgressBar()
\r\n\r\n
End\r\nSub
\r\n\r\n
Private\r\nDelegate Sub \r\nZipProgress(ByVal e \r\nAs ExtractProgressEventArgs)
\r\nPrivate\r\nDelegate Sub \r\nExtractEntryProgress(ByVal e \r\nAs ExtractProgressEventArgs)
\r\n\r\n
Private\r\nSub zip_ExtractProgress(ByVal sender\r\nAs Object, \r\nByVal e As ExtractProgressEventArgs)
\r\nStepEntryProgress(e)
\r\nEnd\r\nSub
\r\n\r\n
Private\r\nSub StepEntryProgress(ByVal e\r\nAs ExtractProgressEventArgs)
\r\n\r\n'Dim TranferTotal As Integer
\r\n\r\n' TranferTotal = TranferTotal + backup.UncompressedSize
\r\n\r\n' TranferTotal = e.BytesTransferred + TranferTotal
\r\n\r\n
\r\nIf Me.ProgressBar1.InvokeRequired \r\nThen
\r\nProgressBar1.Invoke(New\r\nExtractEntryProgress(AddressOf\r\nMe.StepEntryProgress), New\r\nObject() {e})
\r\n\r\nElse
\r\n\r\nIf ProgressBar1.Maximum = 100 \r\nThen
\r\n\r\n
ProgressBar1.Value =\r\nConvert.ToInt32(100 * e.BytesTransferred / e.TotalBytesToTransfer)
\r\n\r\n' Me.ProgressBar1.Value = 100 * e.BytesTransferred / e.TotalBytesToTransfer
\r\n\r\n' lblResults.Text = CStr(100 * (e.BytesTransferred / e.TotalBytesToTransfer).ToString("#,##0.00")) & "% Complete"
\r\n\r\n' Me.ProgressBar1.Value = 100 * TranferTotal / TotalSize
\r\n\r\nElse
\r\nlblResults.Text =\r\n"Done"
\r\n\r\nEnd If
\r\n\r\nEnd If
\r\n\r\n
End\r\nSub
\r\n\r\n
Sub DotNetZip_Extract_With_ProgressBar()
\r\n\r\nDim TotalSize = 0
\r\n\r\nDim TranferTotal As \r\nInteger = 0
\r\n\r\nDim ZipToUnpack As \r\nString = "C:\\Temp\\1.zip"
\r\n\r\nDim extractDir As \r\nString = "C:\\Temp\\Extract"
\r\n\r\n
\r\nUsing zip As ZipFile =\r\nZipFile.Read(ZipToUnpack)
\r\n\r\nAddHandler (zip.ExtractProgress), \r\nNew EventHandler(Of\r\nExtractProgressEventArgs)(AddressOf\r\nMe.zip_ExtractProgress)
\r\n\r\nFor Each backup \r\nIn zip
\r\nTotalSize = backup.UncompressedSize + TotalSize
\r\n\r\nNext
\r\n\r\nFor Each backup \r\nIn zip
\r\nbackup.Extract(extractDir, Ionic.Zip.ExtractExistingFileAction.OverwriteSilently)
\r\n\r\nNext
\r\n\r\nEnd Using
\r\n\r\nEnd Sub
\r\nEnd\r\nClass
\r\n\r\n
\r\n
\r\n
\r\n", "PostedDate": "2012-07-10T07:14:03.613-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "859787", "ThreadId": "362461", "Html": "
Anyone?
", "PostedDate": "2012-07-10T10:11:15.21-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "859966", "ThreadId": "362461", "Html": "\r\nI think you're going about it the wrong way. Put the required handlers in your BackgroundWorker_DoWork. It looks like you've done this step.
\r\n\r\n
AddHandler Zip.SaveProgress, New EventHandler(Of SaveProgressEventArgs)(AddressOf Zip_SaveProgress)\nAddHandler Zip.AddProgress, New EventHandler(Of AddProgressEventArgs)(AddressOf Zip_AddProgress)\r\n
AddHandler Zip.ExtractProgress, New EventHandler(Of ExtractProgressEventArgs)(AddressOf Zip_ExtractProgress)\n\r\n
\r\n
Then create the appropriate subs (Zip_SaveProgress, Zip_AddProgress, Zip_ExtractProgress). It looks like you didn't do this step. here are some examples:\r\n
\r\n\nPrivate Sub Zip_AddProgress(ByVal sender As Object, ByVal e As AddProgressEventArgs)\n If bwWorker.CancellationPending Then e.Cancel = True 'If we press the stop button, invoke Cancel. RunWorkerCompleted will be called.\n\n Select Case e.EventType\n Case ZipProgressEventType.Adding_AfterAddEntry\n SetStatusText(lang_Gathering & " " & e.CurrentEntry.FileName.Substring(e.CurrentEntry.FileName.LastIndexOf("/") + 1, e.CurrentEntry.FileName.Length - e.CurrentEntry.FileName.LastIndexOf("/") - 1))\n End Select\n\n End Sub\n Private Sub Zip_SaveProgress(ByVal sender As Object, ByVal e As SaveProgressEventArgs)\n If bwWorker.CancellationPending Then e.Cancel = True 'If we press the stop button, invoke Cancel. RunWorkerCompleted will be called.\n\n Select Case e.EventType\n Case ZipProgressEventType.Saving_AfterWriteEntry\n bwBackup.ReportProgress(CInt(Math.Truncate(100 * (e.EntriesSaved / e.EntriesTotal))))\n SetStatusText(lang_Compressing & " " & CInt(Math.Truncate(100 * (e.EntriesSaved / e.EntriesTotal))) & lang_PercentComplete)\n End Select\n\n End Sub\n Private Sub Zip_ExtractProgress(ByVal sender As Object, ByVal e As ExtractProgressEventArgs)\n If bwWorker.CancellationPending Then e.Cancel = True 'If we press the stop button, reset the variables we used for extracting, then invoke Cancel. RunWorkerCompleted will be called.\n\n Select Case e.EventType\n Case ZipProgressEventType.Extracting_BeforeExtractEntry\n CurrentCount += 1\n bwWorker.ReportProgress(CInt(Math.Truncate(100 * (CurrentCount / TotalCount))))\n SetStatusText(lang_Extracting & " " & CInt(Math.Truncate(100 * (CurrentCount / TotalCount))) & lang_PercentComplete)\n End Select\n\n End Sub\n\n
\r\n
\r\n
Enable the background worker's Report Progress. Then,
\r\n\r\n
Private Sub bwWorker_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles bwbwWorker.ProgressChanged\n ProgressBar.Value = e.ProgressPercentage\n End Sub\n\r\n
\r\n
You don't need to invoke controls if you report progress this way., Through the Zip_Add/Save/ExtractProgress subs, I am sending information to the background worker report sub via bwWorker.Report = Value, which then the progress bar uses (never invoked).
\r\n\r\n
The only invoke I use is SetStatusText, and honestly, I could probably get around that with the ReportProgress also.
\r\nDo not sleep the thread because the progress bar doesn't keep up. This is a Windows theme (Vista+) issue, and not a code problem.
\r\nAll of this information is available in the documentation. However, I remember having issues with this also.
\r\n", "PostedDate": "2012-07-10T14:29:32.047-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "860122", "ThreadId": "362461", "Html": "\r\nHi Aerowinder,
\r\nThanks for the suggestion. I am very new to vb.net so this a bit of a challenge for me. I've done the below as best to my knowledge and the files are extracting but no progress bar. If you create a window form and
\r\n1) add a button, label, background worker and progress bar and add the below code you'll see what I'm talking about. The rem lines are having issues. Any help will greatly be appreciated.
\r\n\r\n
\r\n
\r\n
Imports Ionic.Zip\nImports System.Threading\n\nPublic Class Form1\n\n Private Property CurrentCount As Integer\n Private Property TotalCount As Integer\n\n Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click\n BackgroundWorker1.RunWorkerAsync()\n End Sub\n\n Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged\n Label1.Text = ""\n ProgressBar1.Value = e.ProgressPercentage\n End Sub\n Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork\n Dim TotalSize = 0\n Dim TranferTotal As Integer = 0\n Dim ZipToUnpack As String = "C:\\temp\\1.zip"\n Dim extractDir As String = "C:\\temp\\extract"\n\n Using zip As ZipFile = ZipFile.Read(ZipToUnpack)\n AddHandler (zip.ExtractProgress), New EventHandler(Of ExtractProgressEventArgs)(AddressOf Zip_ExtractProgress)\n AddHandler zip.SaveProgress, New EventHandler(Of SaveProgressEventArgs)(AddressOf Zip_SaveProgress)\n AddHandler zip.AddProgress, New EventHandler(Of AddProgressEventArgs)(AddressOf Zip_AddProgress)\n For Each backup In zip\n TotalSize = backup.UncompressedSize + TotalSize\n Next\n For Each backup In zip\n backup.Extract(extractDir, Ionic.Zip.ExtractExistingFileAction.OverwriteSilently)\n Next\n End Using\n End Sub\n\n Private Sub Zip_AddProgress(ByVal sender As Object, ByVal e As AddProgressEventArgs)\n If BackgroundWorker1.CancellationPending Then e.Cancel = True 'If we press the stop button, invoke Cancel. RunWorkerCompleted will be called.\n\n Select Case e.EventType\n Case ZipProgressEventType.Adding_AfterAddEntry\n ' Label1(lang_Gathering & " " & e.CurrentEntry.FileName.Substring(e.CurrentEntry.FileName.LastIndexOf("/") + 1, e.CurrentEntry.FileName.Length - e.CurrentEntry.FileName.LastIndexOf("/") - 1))\n End Select\n\n End Sub\n\n Private Sub Zip_SaveProgress(ByVal sender As Object, ByVal e As SaveProgressEventArgs)\n If BackgroundWorker1.CancellationPending Then e.Cancel = True 'If we press the stop button, invoke Cancel. RunWorkerCompleted will be called.\n\n Select Case e.EventType\n Case ZipProgressEventType.Saving_AfterWriteEntry\n BackgroundWorker1.ReportProgress(CInt(Math.Truncate(100 * (e.EntriesSaved / e.EntriesTotal))))\n ' Label1(lang_Compressing & " " & CInt(Math.Truncate(100 * (e.EntriesSaved / e.EntriesTotal))) & lang_PercentComplete)\n End Select\n\n End Sub\n\n Private Sub Zip_ExtractProgress(ByVal sender As Object, ByVal e As ExtractProgressEventArgs)\n If BackgroundWorker1.CancellationPending Then e.Cancel = True 'If we press the stop button, reset the variables we used for extracting, then invoke Cancel. RunWorkerCompleted will be called.\n\n Select Case e.EventType\n Case ZipProgressEventType.Extracting_BeforeExtractEntry\n CurrentCount += 1\n ' BackgroundWorker1.ReportProgress(CInt(Math.Truncate(100 * (CurrentCount / TotalCount))))\n ' Label1(lang_Extracting & " " & CInt(Math.Truncate(100 * (CurrentCount / TotalCount))) & lang_PercentComplete)\n End Select\n End Sub\nEnd Class\n\n\r\n
First of all, if you are not using Zip.Add/SaveProgress, remove them and their AddHandler line.
Then, in Visual Studio, right click the solution, and go to properties. Click the compile tab. Option explicit: on. Option strict: on. This requires you to declare every variable with a type. These options should be on by default. A couple examples:
\r\n
Dim TotalSize = 0\r\n\r\nDim TotalSize As Long\r\n\r\n
It will be zero automatically.
And this:
For Each backup In zip\r\nTotalSize = backup.UncompressedSize + TotalSize\r\nNext\r\n
Should be more like this
\r\nFor Each entry As ZipEntry In zip.Entries\r\nTotalSize += backup.UncompressedSize\r\nNext\r\n
The math probably doesn't check out.
The commented text Label1(.....) will not work, because this needs to be delegated in order to be used that way. The proper way to do that, is like this:
\r\n
Private Delegate Sub SetStatusTextInvoker(ByVal Text As String)\r\nPrivate Sub SetStatusText(ByVal Text As String)\r\n If Me.InvokeRequired Then\r\n Me.Invoke(New SetStatusTextInvoker(AddressOf SetStatusText), Text)\r\n Else\r\n StatusTS.Text = Text\r\n End If\r\nEnd Sub\r\n
The label in this case, on the form, is named StatusTS. If you want to update it through another thread (like you are trying to do), you need to address it as SetStatusText(text here). And this will update the label from your worker thread.
Don't clear the label in the BackgroundWorker1_ProgressChanged. Either update it here directly, or use the delegate and update it in the Zip_ExtractProgress.
Thanks again Aerowinder, I tried to clean it up as suggested. There is still an issue with the rem line. Not sure why the progressbar is not updating. If you feel like, I would greatly appreciate it. Thanks again.
\r\n\r\n
\r\n
Imports Ionic.Zip\r\nImports System.Threading\r\n\r\nPublic Class Form1\r\n\r\n Private Property CurrentCount As Integer\r\n Private Property TotalCount As Integer\r\n\r\n Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click\r\n BackgroundWorker1.RunWorkerAsync()\r\n End Sub\r\n\r\n Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged\r\n ProgressBar1.Value = e.ProgressPercentage\r\n End Sub\r\n\r\n Private Delegate Sub SetStatusTextInvoker(ByVal Text As String)\r\n Private Sub SetStatusText(ByVal Text As String)\r\n If Me.InvokeRequired Then\r\n Me.Invoke(New SetStatusTextInvoker(AddressOf SetStatusText), Text)\r\n Else\r\n Label1.Text = Text\r\n End If\r\n End Sub\r\n\r\n Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork\r\n Dim TotalSize As Long\r\n Dim ZipToUnpack As String = \"C:\\temp\\1.zip\"\r\n Dim extractDir As String = \"C:\\temp\\extract\"\r\n\r\n\r\n Using zip As ZipFile = ZipFile.Read(ZipToUnpack)\r\n AddHandler (zip.ExtractProgress), New EventHandler(Of ExtractProgressEventArgs)(AddressOf Zip_ExtractProgress)\r\n For Each Entry As ZipEntry In zip.Entries\r\n TotalSize += Entry.UncompressedSize\r\n Next\r\n For Each Entry As ZipEntry In zip.Entries\r\n Entry.Extract(extractDir, Ionic.Zip.ExtractExistingFileAction.OverwriteSilently)\r\n Next\r\n End Using\r\n End Sub\r\n\r\n Private Sub Zip_ExtractProgress(ByVal sender As Object, ByVal e As ExtractProgressEventArgs)\r\n If BackgroundWorker1.CancellationPending Then\r\n e.Cancel = True 'If we press the stop button, reset the variables we used for extracting, then invoke Cancel. RunWorkerCompleted will be called.\r\n End If\r\n\r\n Select Case e.EventType\r\n Case ZipProgressEventType.Extracting_BeforeExtractEntry\r\n Dim lang_Extracting As Integer\r\n Dim lang_PercentComplete As Integer\r\n\r\n CurrentCount += 1\r\n BackgroundWorker1.ReportProgress(CInt(Math.Truncate(100 * (CurrentCount / TotalCount))))\r\n ' Label1(lang_Extracting & \" \" & CInt(Math.Truncate(100 * (CurrentCount / TotalCount))) & lang_PercentComplete)\r\n End Select\r\n End Sub\r\n\r\nEnd Class\r\n\r\n\r\n\r\n
When you have an error message, you need to tell me what it is, so I don't have to guess. The variables I gave you earlier came from code from one of my programs. It was not made for your program, and as such, you need to adapt it to fit your own code.
\r\n\r\n
Let me tell you what I see:
\r\nDim lang_Extracting As Integer\r\nDim lang_PercentComplete As Integer\r\n
Get rid of these. They aren't necessary for your program.\r\n
\r\n
CurrentCount is not doing what you want. Here is what it is doing (why is it a Property, by the way?). Before each file is extracted, CurrentCount is incremented by 1. This is not what you want.
\r\nTotalCount obtains total uncompressed size for all entries. Looks good.
\r\n\r\n
You are attempting to divide CurrentCount / TotalCount as your progress bar value. Think about the math behind this, and you will understand why it's wrong. Entry count / uncompressed entry size. Use ZipProgressEventType.Extracting_EntryBytesWritten instead.
\r\n\r\n
Label1(lang_Extracting & \" \" & CInt(Math.Truncate(100 * (CurrentCount / TotalCount))) & lang_PercentComplete)\r\nI told you how to fix this already.",
"PostedDate": "2012-07-11T15:41:52.99-07:00",
"UserRole": null,
"MarkedAsAnswerDate": null
},
{
"Id": "860769",
"ThreadId": "362461",
"Html": "Thanks again Aerowinder for your time. This code I got via google, being this is my first project I'm lost as to what to do here. It is working but not progressbar update.
\r\n\r\n\r\nImports Ionic.Zip\r\nImports System.Threading\r\n\r\nPublic Class Form1\r\n\r\n Private Property CurrentCount As Integer\r\n Private Property TotalCount As Integer\r\n\r\n Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click\r\n BackgroundWorker1.RunWorkerAsync()\r\n End Sub\r\n\r\n Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged\r\n ProgressBar1.Value = e.ProgressPercentage\r\n End Sub\r\n\r\n Private Delegate Sub SetStatusTextInvoker(ByVal Text As String)\r\n Private Sub SetStatusText(ByVal Text As String)\r\n If Me.InvokeRequired Then\r\n Me.Invoke(New SetStatusTextInvoker(AddressOf SetStatusText), Text)\r\n Else\r\n Label1.Text = Text\r\n End If\r\n End Sub\r\n\r\n Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork\r\n Dim TotalSize As Long\r\n Dim ZipToUnpack As String = \"C:\\temp\\1.zip\"\r\n Dim extractDir As String = \"C:\\temp\\extract\"\r\n\r\n Try\r\n Using zip As ZipFile = ZipFile.Read(ZipToUnpack)\r\n AddHandler (zip.ExtractProgress), New EventHandler(Of ExtractProgressEventArgs)(AddressOf Zip_ExtractProgress)\r\n\r\n For Each Entry As ZipEntry In zip.Entries\r\n TotalSize += Entry.UncompressedSize\r\n Next\r\n For Each Entry As ZipEntry In zip.Entries\r\n Entry.Extract(extractDir, Ionic.Zip.ExtractExistingFileAction.OverwriteSilently)\r\n Next\r\n End Using\r\n Catch EX As Exception\r\n MessageBox.Show(EX.Message)\r\n End Try\r\n End Sub\r\n\r\n Private Sub Zip_ExtractProgress(ByVal sender As Object, ByVal e As ExtractProgressEventArgs)\r\n If BackgroundWorker1.CancellationPending Then\r\n e.Cancel = True 'If we press the stop button, reset the variables we used for extracting, then invoke Cancel. RunWorkerCompleted will be called.\r\n End If\r\n\r\n Select Case e.EventType\r\n Case ZipProgressEventType.Extracting_EntryBytesWritten\r\n\r\n Dim Entry As Integer\r\n Dim CurrentCount As Integer = Entry\r\n \r\n BackgroundWorker1.ReportProgress(CInt(Int((100 * (CurrentCount / TotalCount)))))\r\n End Select\r\n End Sub\r\nEnd Class\r\n\r\n\r\n\r\n\r\n\r\n
Anyone?
", "PostedDate": "2012-07-12T14:20:28.397-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "862294", "ThreadId": "362461", "Html": "\r\nI can't use this forum for posting any more code. It is utterly terrible. I can speak to you on VoIP (Ventrilo/Mumble) if you are interested (email me through the board).
\r\n\r\n
But the problem is with this code:
\r\nDim Entry As Integer\n Dim CurrentCount As Integer = Entry\n \n BackgroundWorker1.ReportProgress(CInt(Int((100 * (CurrentCount / TotalCount)))))\r\n
What do you expect it to do? I need you to walk me through how you think this should work (VoIP is best).
\r\n", "PostedDate": "2012-07-12T14:21:32.72-07:00", "UserRole": null, "MarkedAsAnswerDate": null } ]