Imports Ionic.Zip
Public Class Frm_Patcher
Private Shared justHadByteUpdate As Boolean = False
Public Shared Sub MyExtractProgress(ByVal sender As Object, ByVal e As ExtractProgressEventArgs)
If (e.EventType Is ZipProgressEventType.Extracting_EntryBytesWritten) Then
If ExtractTest.justHadByteUpdate Then
Console.SetCursorPosition(0, Console.CursorTop)
End If
Console.Write(" {0}/{1} ({2:N0}%)", e.BytesWritten, e.TotalBytesToWrite, (CDbl(e.BytesWritten) / (0.01 * e.TotalBytesToWrite)))
ExtractTest.justHadByteUpdate = True
ElseIf (e.EventType Is ZipProgressEventType.Extracting_BeforeExtractEntry) Then
If ExtractTest.justHadByteUpdate Then
Console.WriteLine()
End If
Console.WriteLine("Extracting: {0}", e.NameOfLatestEntry)
ExtractTest.justHadByteUpdate = False
End If
End Sub
Private Sub MyExtract()
Dim Overwrite As ExtractExistingFileAction = ExtractExistingFileAction.OverwriteSilently
Dim ZipToUnpack As String = "C1P3SML.zip"
Dim UnpackDirectory As String = "Extracted Files"
StatusMessage.Text = String.Format("Extracting file {0} to {1}", ZipToUnpack, UnpackDirectory)
Using zip1 As ZipFile = ZipFile.Read(ZipToUnpack)
AddHandler zip1.ExtractProgress, AddressOf MyExtractProgress
Dim e As ZipEntry
' here, we extract every entry, but we could extract conditionally,
' based on entry name, size, date, checkbox status, etc.
For Each e In zip1
e.Extract(UnpackDirectory, Overwrite)
Next
End Using
End Sub
Private Sub Frm_Patcher_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyExtract()
End Sub
End Class
\r\n
this is the code im useing copyed it right from the examples page.. i past it into my form like so and i get all sorts of errors.. what do i do? i want to make my fiel unzip and show its progress in progressbar1. sorry if this sounds kinda newbie but this is my first project in vs2008 im normally useing vb6 so .net is new to me this is actaully the only one i have got to work so far. i can exstract the file useing the example on the home page but i cant get the progress bar code here to work. and then once i get it working how do i call it to make th bar work.
\r\n\r\n
here are the errors
\r\ni have colored red and underlined all the lines thats underlined in my code.
\r\nError 1 'Is' operator does not accept operands of type 'Ionic.Zip.ZipProgressEventType'. Operands must be reference or nullable types.
Error 2 'Is' operator does not accept operands of type 'Ionic.Zip.ZipProgressEventType'. Operands must be reference or nullable types.
Error 3 Name 'ExtractTest' is not declared.
Error 4 'BytesWritten' is not a member of 'Ionic.Zip.ExtractProgressEventArgs'.
Error 5 'TotalBytesToWrite' is not a member of 'Ionic.Zip.ExtractProgressEventArgs'.
Error 6 'BytesWritten' is not a member of 'Ionic.Zip.ExtractProgressEventArgs'.
Error 7 'TotalBytesToWrite' is not a member of 'Ionic.Zip.ExtractProgressEventArgs'.
Error 8 Name 'ExtractTest' is not declared.
Error 9 'Is' operator does not accept operands of type 'Ionic.Zip.ZipProgressEventType'. Operands must be reference or nullable types.
Error 10 'Is' operator does not accept operands of type 'Ionic.Zip.ZipProgressEventType'. Operands must be reference or nullable types.
Error 11 Name 'ExtractTest' is not declared.
Error 12 'NameOfLatestEntry' is not a member of 'Ionic.Zip.ExtractProgressEventArgs'.
Error 13 Name 'ExtractTest' is not declared.
\r\n
if you need anymore info let me know please im watching this post
", "PostedDate": "2009-08-11T18:32:31.577-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "222292", "ThreadId": "65267", "Html": "Spidey,
\r\ncheck out the examples on msdn.
\r\nThere is a VB.NET project that compiles and runs; it uses a progressbar. There's also a C# app that uses a progressbar.
\r\n", "PostedDate": "2009-08-11T19:20:09.357-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "222304", "ThreadId": "65267", "Html": "
i tryed that out its ziping the file i need to unzip it
", "PostedDate": "2009-08-11T20:18:16.297-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "222314", "ThreadId": "65267", "Html": "ok, well, instead of using the Saving_... event types, use the Extracting_... event types.
\r\n\r\n
Private Sub zip_ExtractProgress(ByVal sender As Object, ByVal e As ExtractProgressEventArgs)\r\n If (e.EventType = (ZipProgressEventType.Extracting_ExtractEntryWouldOverwrite Or ZipProgressEventType.Reading_ArchiveBytesRead)) Then\r\n StepEntryProgress(e)\r\n ElseIf (e.EventType = ZipProgressEventType.Extracting_BeforeExtractAll) Then\r\n StepArchiveProgress(e)\r\n End If\r\n If _setCancel Then\r\n ' this Boolean would be set in a event handler for the cancel button\r\n
e.Cancel = True\r\n End If\r\nEnd Sub\r\n\r\n
Private Sub StepEntryProgress(ByVal e As ZipProgressEventArgs)\r\n If progressBar2.InvokeRequired Then\r\n progressBar2.Invoke(New ZipProgress(AddressOf StepEntryProgress), New Object() { e })\r\n ElseIf Not _operationCanceled Then\r\n If (progressBar2.Maximum = 1) Then\r\n ' first time through for the current entry\r\n
progressBar2.Maximum = CInt(e.TotalBytesToTransfer)\r\n 'set a label with status information
lblStatus.Text = String.Format("{0} of {1} files...({2})", (_nFilesCompleted + 1), _totalEntriesToProcess, e.CurrentEntry.FileName)\r\n End If\r\n ' do this every time
progressBar2.Value = IIf((e.BytesTransferred >= progressBar2.Maximum), progressBar2.Maximum, e.BytesTransferred)\r\n MyBase.Update\r\n End If\r\nEnd Sub\r\n\r\n
\r\n
Private Sub StepArchiveProgress(ByVal e As ZipProgressEventArgs)\r\n If progressBar1.InvokeRequired Then\r\n progressBar1.Invoke(New ZipProgress(AddressOf StepArchiveProgress), New Object() { e })\r\n ElseIf Not _operationCanceled Then\r\n _nFilesCompleted = _nFilesCompleted+1\r\n
progressBar1.PerformStep\r\n progressBar2.Value = progressBar2.Maximum = 1\r\n MyBase.Update\r\n End If\r\nEnd Sub \r\n
\r\n
I guess you'll be able to figure out the rest.
\r\n\r\n
", "PostedDate": "2009-08-11T20:56:44.07-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "222328", "ThreadId": "65267", "Html": "
ok this is what i got so far no errors it exstracts the fiel just fine but there is no progress bars ether one..
\r\n\r\n
also i would like to not if it makes it simpler i dont need 2 progress bars one showing over all on one showing files.. i just need the one showing ovr all but im not sure yt how to remove the extra till i get them working.. so if you would like to remove it to make it easyer on you be my guest.
\r\n\r\n
anyways this is what i got
\r\n\r\n
\r\n
Imports Ionic.Zip\r\n\r\n\r\n\r\nPublic Class Frm_Patcher\r\n\r\n Private _operationCanceled As Boolean\r\n Private _nFilesCompleted As Integer\r\n Private _totalEntriesToProcess As Integer\r\n\r\n Private Delegate Sub ZipProgress(ByVal e As SaveProgressEventArgs)\r\n\r\n\r\n Private Sub zip_ExtractProgress(ByVal sender As Object, ByVal e As ExtractProgressEventArgs)\r\n If (e.EventType = (ZipProgressEventType.Extracting_ExtractEntryWouldOverwrite Or ZipProgressEventType.Reading_ArchiveBytesRead)) Then\r\n StepEntryProgress(e)\r\n ElseIf (e.EventType = ZipProgressEventType.Extracting_BeforeExtractAll) Then\r\n StepArchiveProgress(e)\r\n End If\r\n End Sub\r\n\r\n Private Sub StepEntryProgress(ByVal e As ZipProgressEventArgs)\r\n If progressBar2.InvokeRequired Then\r\n progressBar2.Invoke(New ZipProgress(AddressOf StepEntryProgress), New Object() {e})\r\n ElseIf Not _operationCanceled Then\r\n If (progressBar2.Maximum = 1) Then\r\n ' first time through for the current entry\r\n progressBar2.Maximum = CInt(e.TotalBytesToTransfer)\r\n 'set a label with status information\r\n Txt_Output.Text = String.Format("{0} of {1} files...({2})", (_nFilesCompleted + 1), _totalEntriesToProcess, e.CurrentEntry.FileName)\r\n End If\r\n ' do this every time\r\n progressBar2.Value = IIf((e.BytesTransferred >= progressBar2.Maximum), progressBar2.Maximum, e.BytesTransferred)\r\n MyBase.Update()\r\n End If\r\n End Sub\r\n\r\n\r\n\r\n Private Sub StepArchiveProgress(ByVal e As ZipProgressEventArgs)\r\n If progressBar1.InvokeRequired Then\r\n progressBar1.Invoke(New ZipProgress(AddressOf StepArchiveProgress), New Object() {e})\r\n ElseIf Not _operationCanceled Then\r\n _nFilesCompleted = _nFilesCompleted + 1\r\n progressBar1.PerformStep()\r\n progressBar2.Value = progressBar2.Maximum = 1\r\n MyBase.Update()\r\n End If\r\n End Sub\r\n\r\n Private Sub MyExtract()\r\n Dim Overwrite As ExtractExistingFileAction = ExtractExistingFileAction.OverwriteSilently\r\n Dim ZipToUnpack As String = "C1P3SML.zip"\r\n Dim UnpackDirectory As String = "Extracted Files"\r\n Txt_Output.Text = String.Format("Extracting file {0} to {1}", ZipToUnpack, UnpackDirectory)\r\n Using zip1 As ZipFile = ZipFile.Read(ZipToUnpack)\r\n Me._totalEntriesToProcess = zip1.EntryFileNames.Count\r\n Me.SetProgressBars()\r\n AddHandler zip1.ExtractProgress, New EventHandler(Of ExtractProgressEventArgs)(AddressOf zip_ExtractProgress)\r\n Dim e As ZipEntry\r\n ' here, we extract every entry, but we could extract conditionally,\r\n ' based on entry name, size, date, checkbox status, etc. \r\n For Each e In zip1\r\n e.Extract(UnpackDirectory, Overwrite)\r\n Next\r\n End Using\r\n End Sub\r\n\r\n Private Sub Cmd_Exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_Exit.Click\r\n Me._operationCanceled = False\r\n Me._nFilesCompleted = 0\r\n MyExtract()\r\n End Sub\r\n\r\n Private Sub SetProgressBars()\r\n If Me.ProgressBar1.InvokeRequired Then\r\n Me.ProgressBar1.Invoke(New MethodInvoker(AddressOf SetProgressBars))\r\n Else\r\n Me.ProgressBar1.Value = 0\r\n Me.ProgressBar1.Maximum = Me._totalEntriesToProcess\r\n Me.ProgressBar1.Minimum = 0\r\n Me.ProgressBar1.Step = 1\r\n Me.ProgressBar2.Value = 0\r\n Me.ProgressBar2.Minimum = 0\r\n Me.ProgressBar2.Maximum = 1\r\n Me.ProgressBar2.Step = 2\r\n End If\r\n End Sub\r\nEnd Class\r\n\r\n
\r\n
ok, try this example.
", "PostedDate": "2009-08-12T00:05:22.353-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "222596", "ThreadId": "65267", "Html": "that worked great and from that i can g mine working thanks alot.. also on a side note the refrance for ionic.zip was not found in the unzip project i had to add it myself.. dont knwo if you want to add that to it before others download but after adding it its wroking great..
\r\n\r\n
one thing though. y does it take so much to get a progress bar to move lol.. i mean bfore in vb6 it was a matter of adding a call to the unzip line to see how many files where in the zip then makeing the progressbar max the filel count then counting up the bar +1 each file.. all added about 5 lines max if that many.. but this wow that was alot of stuff to get the bar to move. is there a simpler way to do it and your jsut donig it the long way to do all the error checking and such? you cant just say
\r\nfor e < filecount
\r\nprogressbar1.value = progressbar.value+1
\r\nunzip(e) 'or whatever to unzip
\r\nloop
\r\n\r\n
something simple like that is what i used in vb is it jsut .net thats makeing it so much more info needed now? or is it siply jsut how the dll was made to work?
\r\n\r\n
anyways thanks alot for your help i really appriciae it.
\r\nps sorry for the speling just work up still half awake lol.
", "PostedDate": "2009-08-12T09:30:32.067-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "222605", "ThreadId": "65267", "Html": "| \r\n You can compile code and add references to Visual Studio projects, you can reason about application design, but you're not able to spell or hit the Shift key? I think maybe it's not that you're half awake but just that you enjoy "not speling". whatever. \r\nYes, there are simpler ways to do it. What you described would work just fine, if you don't want a cancel capability. \r\nIf you want to be able to cancel the extract part way through, then you need to do the extract on a background thread. \r\nIf you do the extract in the button click event, then the extraction is being performed on the main, "UI" thread. Suppose the extraction takes 3 minutes - that can happen for big zip files. If the user clicks a cancel button during those three minutes, the application won't respond, because the main UI thread is busy extracting. When the extraction is done, the unzip button click event will complete, and then the cancel button click event will run. But by that time the unzip work is done. This obviously is not a responsive UI. \r\nTo have a responsive UI, the application cannot do long-running work on the UI thread. That way the UI thread is always available for UI events - button clicks or whatever. \r\nSo I had to kick-off a thread to do the extraction. That's half the complexity. The next half is - it's not possible to update the UI (like advance the progress bar) from the background thread. So, for each update of the progressbar (or enable/disable a button, etc), I need a separate method that calls to "Control.InvokeRequired", and if that returns true, the method then calls itself via Invoke. This switches threads to allow the update of the control to happen on the main UI thread. \r\nAll that complexity is necessary if you want a cancellable UI. \r\nIt has nothing to do with DotNetZip. This is the way to make a cancellable UI in .NET WinForms, whenever you run a long-running task in response to a button click: Do the work on the background thread, and Control.Invoke() to update the UI. \r\nI did it the long way because it's an example, and I kinda want to publish good examples, in case people copy them. \r\nActually, thinking about it, there is a bit of over-complexity just in the extraction. I call ExtractAll() and use a ExtractProgress method, but the way you described it - iterating through the entries and calling Extract() on each one - would work and would eliminate the need for the ExtractProgress event. The ExtractProgress is really necessary if: \r\n
But even without the ExtractProgress, you still need the background thread and the Control.InvokeRequired. \r\n\r\n | \r\n
Cheeso wrote:\r\n
\r\n\r\n\r\n
\r\n\r\n \r\n\r\n\r\n \r\nYou can compile code and add references to Visual Studio projects, you can reason about application design, but you're not able to spell or hit the Shift key? I think maybe it's not that you're half awake but just that you enjoy "not speling". whatever.
\r\n
Why do you have to be so mean :P I did not know I was annoying you that much lol.. I apologized for the spelling. A few things are equating to the spelling.. A bad keyboard that wants to mis half the t's and i's I hit. Dyslexia, and the fact of being half awake. And I never was much on grammar hence the not hitting shift.
\r\nI was simply just asking a question. And you answered it flawlessly as a matter of fact.. And it makes sense like I said in the beginning this is my first .net project normally I’m using vb6 and I can only go from what I know there. So I did not know if it was something to do with .net or the dll or if it was you just doing it in example format to produce a good example for others to follow also. I’m sure everyone appreciates what you’re doing as much as I do.
\r\n\r\n
That makes sense now that you would have to do it such a long way to push it to the background and so on.. But what if you don’t have a cancel event is there a simple example you could show me for something like that? Because the program I’m making is a patcher it downloads the zip files then extracts them to the right place for them to be all on load of the form there will actually be no buttons for the user to click until after the patch process is done..
\r\n\r\n
If you do not wish to help anymore on this topic I understand you did help me and I have something that works even though it’s a bit over complicated for what I need it works. So I’m happy with that. I’m just trying to understand all the workings of a dll I’m trying to use because this is one I see myself using a lot.
\r\n\r\n
Again please accept my apologies for the spelling and what not and for taking up so much of your time on this. And thanks for all the help you have given.
", "PostedDate": "2009-08-12T10:19:29.603-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "222647", "ThreadId": "65267", "Html": "no offense intended. You don't need to explain anything, write however ya want.
\r\nFor a really simple unzip app that displays a graphical UI, produce a simple WinForms project. Add a single label (label1) and a single progressbar (progressBar1). Then include the following code. You may have to change the name from MyForm to whatever your form is (in 2 places). Somehow you need to pass in the name of the zip file to extract and the directory to which you want to extract. Probably on the command line as arguments.
\r\nPrivate Sub MyForm_Shown(ByVal sender As Object, ByVal e As EventArgs) Handles MyForm.Shown\r\n Try \r\n Using zip As ZipFile = ZipFile.Read(zipfile)\r\n Me.progressBar1.Maximum = zip.Entries.Count\r\n Dim entry As ZipEntry\r\n For Each entry In zip\r\n Me.label1.Text = entry.FileName\r\n MyBase.Update\r\n entry.Extract(extractDirectory, ExtractExistingFileAction.OverwriteSilently)\r\n Me.progressBar1.PerformStep\r\n MyBase.Update\r\n ' sleep because it's too fast otherwise.\r\n Thread.Sleep(50)\r\n Next\r\n End Using\r\n Catch ex1 As Exception\r\n Me.label1.Text = ("Exception: " & ex1)\r\n End Try\r\n ' delay for a second after complete, to allow user to gaze\r\n Dim timer1 As New Timer(1000)\r\n timer1.Enabled = True\r\n timer1.AutoReset = False\r\n AddHandler timer1.Elapsed, New ElapsedEventHandler(AddressOf Me.OnTimerEvent)\r\nEnd Sub\r\n\r\nPublic Sub OnTimerEvent(ByVal source As Object, ByVal e As EventArgs)\r\n MyBase.Close\r\nEnd Sub\r\n\r\n\r\n
And, I wouldn't put your download-and-unzip logic in the Load event. I would put it in the Shown event, which happens after the form Load. It is after Form load that the form is visible. So if you do work inside Load() sometimes, you don't get to see the update of the UI.
\r\n", "PostedDate": "2009-08-12T11:26:35.163-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "222833", "ThreadId": "65267", "Html": "
Sorry took so long to reply i took my kid to the beach today and she keep me out all day.. I must say that code looks lot more like what I was looking for lol thanks a lot.. But I’m having problems of coarse this stuff cant just work like its suppose to lol
\r\n\r\n
First off I want to understand I’m new to this mybase deal what is that?
\r\nMyBase.Update()
\r\nMyBase.Close
\r\n\r\n
I don’t understand what’s that doing.. Is it needed?
\r\nThen my errors..
\r\nUsing zip As ZipFile = ZipFile.Read(zipfile)
I don't understand why. It’s worked all the other times it’s exactly the same line as before but I’m getting this error from it
'Read' is not a member of 'String'.
next problem is
Me.label1.Text = ("Exception: " & ex1)
it seems that ex1 cannot be converted to a string..
Operator '&' is not defined for types 'String' and 'System.Exception'.
If I remove everything except ex1 it says it can’t be converted to string
next problem I fixed but wanted to note it in case anyone else is following this
Thread.Sleep(50)
gave an error I fixed it by changing to
System.Threading.Thread.Sleep(50)
next problem well this is the last one but it’s a few..
Dim timer1 As New Timer(1000)
timer1.Enabled = True
timer1.AutoReset = False
AddHandler timer1.Elapsed, New ElapsedEventHandler(AddressOf Me.OnTimerEvent)
I get error at the 1000
autoreset (I don’t even think that’s a call from timers at least it’s not listed in the options for auto fill
and ElapsedEventHandler is underlined
Value of type 'Integer' cannot be converted to 'System.ComponentModel.IContainer'.
'AutoReset' is not a member of 'System.Windows.Forms.Timer'.
Type 'ElapsedEventHandler' is not defined.
Ok that’s is all the errors are listed and what I think if anything.. My biggest thing is I want you to explain that MyBase part..
I’m not sure what that is and having a problem finding something on google about it that I can understand at lest lol..
I just hate using calls and not knowing what they do this is all a learning experience so I like to learn what I can from it.
| \r\n Hello Spidey. spending the day at the beach is better that spending the day making zip files. \r\nMyBase.Update() calls the Update method on the base class, in this case, System.Windows.Forms.Form. I don't know how much you know about Object Oriented design, but VB.NET went very OO. In VB6 you had objects, but VB.NET jumped into OO with both feet. The Update and Close methods are on the base class of the Form. \r\nThe first method updates the UI - it's a way to tell the program, I just made a change and I'd like the change (maybe progress bar advance) to be visible NOW. If you don't call Update then what can happen is those updates get queued and displayed "later". So the goal of calling Update is to make the UI update smoothly. \r\nClose just closes the form, or window. I understood that you were building an app that unzipped some things and then just closes when it's done. That's done by the call to Close. \r\n\r\n Errors\r\nIf you get an error like "'Read' is not a member of 'String'.", on a line that includes a sequence like \r\nZipFile.Read(zipfile)\r\n\r\n .. I think the problem here is one of naming confusion. I'm not a VB person, no expert in VB, but I think VB may be NOT case sensitive, in other words zipfile is the same as ZipFile, in the program. Now zipfile is the name used to hold the string, the name of the file, while ZipFile is the name of the class. So if you rename the string to, say, zipfileName, you should avoid this problem. \r\n Me.label1.Text = ("Exception: " & ex1)\r\nChange this to \r\n Me.label1.Text = ("Exception: " & ex1.ToString())\r\n(The reason you're having these problems is that I converted a C# program to VB.NET, using a conversion program. Like I said, I'm not a vb.net expert. With the automatic conversion, you get these kinds of problems) \r\nRather than go through all these problems, how about I just get my converted code to actually compile before I send it to you? The following code compiles successfully, and works. \r\n\r\n \r\n \r\n\r\n'' qunzip.vb\r\n'' ------------------------------------------------------------------\r\n''\r\n'' A simple app that unzips a file, showing a progress bar. \r\n'' It is both a console app, and a winforms app. \r\n'' \r\n'' built on host: DINOCH-2\r\n'' Created Thu Aug 06 15:34:17 2009\r\n''\r\n'' last saved: \r\n'' Time-stamp: <2009-August-13 11:25:08>\r\n'' ------------------------------------------------------------------\r\n''\r\n'' Copyright (c) 2009 by Dino Chiesa\r\n'' All rights reserved!\r\n''\r\n'' Licensed under the Microsoft Public License.\r\n'' see http://www.opensource.org/licenses/ms-pl.html\r\n''\r\n'' ------------------------------------------------------------------\r\n\r\nImports System\r\nImports System.Reflection\r\nImports System.Windows.Forms\r\nImports Ionic.Zip\r\n\r\n\r\n'' to allow fast ngen\r\n<assembly: AssemblyTitle("Qunzip.cs")>\r\n<assembly: AssemblyDescription("quick winforms unzip tool")>\r\n<assembly: AssemblyConfiguration("")>\r\n<assembly: AssemblyCompany("Dino Chiesa")>\r\n<assembly: AssemblyProduct("Tools")>\r\n<assembly: AssemblyCopyright("Copyright © Dino Chiesa 2009")>\r\n<assembly: AssemblyTrademark("")>\r\n<assembly: AssemblyCulture("")>\r\n<assembly: AssemblyVersion("1.1.1.1")>\r\n\r\n\r\nNamespace Ionic.ToolsAndTests.VB\r\n\r\n '' see example :\r\n '' http://social.msdn.microsoft.com/Forums/en-US/Vsexpressvb/thread/875952fc-cd2c-4e74-9cf2-d38910bde613\r\n\r\n Friend Class QuickUnzip\r\n ' Methods\r\n <System.Runtime.InteropServices.DllImport("kernel32.dll")> _\r\n Private Shared Function AllocConsole() As Boolean\r\n End Function\r\n\r\n <System.Runtime.InteropServices.DllImport("kernel32.dll")> _\r\n Private Shared Function AttachConsole(ByVal pid As Integer) As Boolean\r\n End Function\r\n\r\n <STAThread> _\r\n Public Shared Sub Main(ByVal args As String())\r\n If Not QuickUnzip.AttachConsole(-1) Then\r\n QuickUnzip.AllocConsole\r\n End If\r\n If (args.Length <> 1) Then\r\n QuickUnzip.Usage(args)\r\n Else\r\n Application.EnableVisualStyles\r\n Application.SetCompatibleTextRenderingDefault(False)\r\n Dim f As New QuickUnzipForm(args(0))\r\n Application.Run(f)\r\n End If\r\n End Sub\r\n\r\n Private Shared Sub Usage(ByVal args As String())\r\n Console.WriteLine("QuickUnzip. Usage: QuickUnzip <zipfile>")\r\n End Sub\r\n\r\n End Class\r\n\r\n\r\n\r\n Public Class QuickUnzipForm\r\n Inherits Form\r\n ' Methods\r\n Public Sub New()\r\n Me.components = Nothing\r\n Me.InitializeComponent\r\n End Sub\r\n\r\n Public Sub New(ByVal zipfile As String)\r\n Me.New()\r\n Me.zipfileName = zipfile\r\n End Sub\r\n\r\n Protected Overrides Sub Dispose(ByVal disposing As Boolean)\r\n If (disposing AndAlso (Not Me.components Is Nothing)) Then\r\n Me.components.Dispose\r\n End If\r\n MyBase.Dispose(disposing)\r\n End Sub\r\n\r\n Private Sub FixTitle()\r\n Me.Text = String.Format("Quick Unzip {0}", Me.zipfileName)\r\n End Sub\r\n\r\n Private Sub InitializeComponent()\r\n Me.components = New System.ComponentModel.Container\r\n Me.label1 = New Label\r\n Me.progressBar1 = New ProgressBar\r\n MyBase.SuspendLayout\r\n Me.label1.AutoSize = True\r\n Me.label1.Location = New System.Drawing.Point(12, 12)\r\n Me.label1.Name = "label1"\r\n Me.label1.Size = New System.Drawing.Size(50, 13)\r\n Me.label1.TabIndex = 2\r\n Me.label1.Text = "Progress"\r\n Me.progressBar1.Anchor = (AnchorStyles.Right Or (AnchorStyles.Left Or AnchorStyles.Top))\r\n Me.progressBar1.Location = New System.Drawing.Point(15, 50)\r\n Me.progressBar1.Name = "progressBar1"\r\n Me.progressBar1.Size = New System.Drawing.Size(310, &H12)\r\n Me.progressBar1.Step = 1\r\n Me.progressBar1.TabIndex = 7\r\n MyBase.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)\r\n MyBase.AutoScaleMode = AutoScaleMode.Font\r\n MyBase.ClientSize = New System.Drawing.Size(340, 140)\r\n MyBase.Controls.Add(Me.label1)\r\n MyBase.Controls.Add(Me.progressBar1)\r\n MyBase.Name = "QuickUnzipForm"\r\n Me.Text = "QuickUnzip"\r\n AddHandler MyBase.Load, New EventHandler(AddressOf Me.QuickUnzipForm_Load)\r\n AddHandler MyBase.Shown, New EventHandler(AddressOf Me.QuickUnzipForm_Shown)\r\n MyBase.ResumeLayout(False)\r\n MyBase.PerformLayout\r\n End Sub\r\n\r\n Public Sub OnTimerEvent(ByVal source As Object, ByVal e As EventArgs)\r\n MyBase.Close\r\n End Sub\r\n\r\n Private Sub QuickUnzipForm_Load(ByVal sender As Object, ByVal e As EventArgs)\r\n Me.FixTitle\r\n End Sub\r\n\r\n Private Sub QuickUnzipForm_Shown(ByVal sender As Object, ByVal e As EventArgs)\r\n Try \r\n Using zip As ZipFile = ZipFile.Read(Me.zipfileName)\r\n Me.progressBar1.Maximum = zip.Entries.Count\r\n Dim entry As ZipEntry\r\n For Each entry In zip\r\n Me.label1.Text = entry.FileName\r\n MyBase.Update\r\n entry.Extract("quickunzip", ExtractExistingFileAction.OverwriteSilently)\r\n Me.progressBar1.PerformStep\r\n MyBase.Update\r\n System.Threading.Thread.Sleep(50)\r\n Next\r\n End Using\r\n Catch ex1 As Exception\r\n Me.label1.Text = ("Exception: " & ex1.ToString)\r\n End Try\r\n Dim timer1 As New System.Timers.Timer(1000)\r\n timer1.Enabled = True\r\n timer1.AutoReset = False\r\n AddHandler timer1.Elapsed, New System.Timers.ElapsedEventHandler(AddressOf Me.OnTimerEvent)\r\n End Sub\r\n\r\n\r\n ' Fields\r\n Private zipfileName As String\r\n Private components As System.ComponentModel.IContainer\r\n Private label1 As Label\r\n Private progressBar1 As ProgressBar\r\n End Class\r\n\r\n\r\n\r\nEnd Namespace\r\n\r\n\r\n I suggest you get yourself a book, like a VB.NET for VB developers book. You might be able to find some help on http://msdn.microsoft.com/en-us/vbasic/default.aspx. Check out the "Getting Started" link on the left-hand-side. \r\nGood luck! \r\n\r\n | \r\n
thanks alot thats what i needed.
\r\nthis is what i got working for everyone or anyone that is following this topic.
\r\ni made a new module my main form is named form1 (you need to change this to whatever your form name is in the module wherever it says form1 i underlined bold and turned red all the spots)
\r\nname the module SimpleUnzip.vb
\r\npast this code in the module
\r\n\r\n
Imports Ionic.Zip\r\n
Module SimpleUnzip
Public Sub Unzip(ByVal ZipToUnpack As String, ByVal DirectoryToExstractTo As String)
Try\r\n Using zip As ZipFile = ZipFile.Read(ZipToUnpack)
Form1.ProgressBar1.Maximum = zip.Entries.Count\r\n Dim entry As ZipEntry
For Each entry In zip
Form1.Label1.Text = entry.FileName
entry.Extract(DirectoryToExstractTo, ExtractExistingFileAction.OverwriteSilently)
Form1.ProgressBar1.Value = Form1.ProgressBar1.Value + 1
' sleep because it's too fast otherwise.\r\n System.Threading.Thread.Sleep(50)\r\n Next
Form1.ProgressBar1.Value = 0
Form1.Label1.Text = "Done"\r\n End Using\r\n Catch ex1 As Exception
Form1.Label1.Text = ("Exception: " & ex1.ToString())
End Try\r\n End Sub\r\nEnd Module\r\n
that's it.. call it in your forum with
\r\nUnzip("C1P3SML.zip", "C1P3SML")
\r\nor
\r\nUnzip(unzip file, dir to unzip to)
\r\n\r\n
that's it so simple i cant beleave i needed so much help lol.. thanks alot Cheeso your the man.
", "PostedDate": "2009-08-13T09:42:51.45-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "223114", "ThreadId": "65267", "Html": "Glad it worked for you.
\r\nhere is the full example (with multi-threading):
\r\nhttp://dotnetzip.codeplex.com/Wiki/View.aspx?title=WinForms-QuickUnzip-VB
", "PostedDate": "2009-08-13T14:01:35.587-07:00", "UserRole": null, "MarkedAsAnswerDate": null } ]