SharpDevelop Community

All I have done so far is added the \zip folder to my VB project. I just want to know if there are samples of the code out there.
Thanks.

Hi,

There are some simple samples in the 084SharpZipLib_SourceSamples.zip available on the download page.

hth,

-jr-

It appears that there is no VB sample to unzip in the source samples.  So, after some work (I know very little C#) here is the C# version converted to VB.Net

Dim s As New ZipInputStream(File.OpenRead(ZipPath))
Dim theEntry As ZipEntry
theEntry = s.GetNextEntry()
Do Until theEntry Is Nothing
   Dim directoryName As String = Path.GetDirectoryName(theEntry.Name)
   Dim fileName As String = Path.GetFileName(theEntry.Name)

   '// create directory
   Directory.CreateDirectory(directoryName)

   If (fileName <> String.Empty) Then
      Dim StreamWriter As FileStream = File.Create(theEntry.Name)
      Dim Size As Integer = 2048
      Dim data(2048) As Byte

      While (True)
         Size = s.Read(data, 0, data.Length)
         If (Size > 0) Then
            StreamWriter.Write(data, 0, Size)
         Else
            Exit While
         End If
      End While

      StreamWriter.Close()
   End If
   theEntry = s.GetNextEntry()
Loop

s.Close()

I found 101 VB.NET code samples available for download on the MSDN website.  Follow this link to download:

http://www.microsoft.com/downloads/details.aspx?FamilyId=08E3D5F8-033D-420B-A3B1-3074505C03F3&displaylang=en

The work in #dev when you select import project under the file menu.

Thanks, Blindlizard... you'd saved my day! :)

which of the sample projects contains the code?  I'm trying to do something similar although I want to be able to zip up a number of files at directory level and include all the files within.  I'm hoping this is possible with SharpLib.  Thanks

I just posted my desire to share my sample code with others.  See my other post, or go straight to my download:

 

http://geocities.com/thistrom/ZipWrapper.zip

 

Good luck.  

Hi Could you please tell me how do i give the ZipPath , for my testing purpose iam hotcoding the value as "C:\zipps\one.zip", it is not returning any value to the variable S

 

Dim s As New ZipInputStream(File.OpenRead(ZipPath))

Dim theEntry As ZipEntry

theEntry = s.GetNextEntry()

Do Until theEntry Is Nothing

Dim directoryName As String = Path.GetDirectoryName(theEntry.Name)

Dim fileName As String = Path.GetFileName(theEntry.Name)

'// create directory

Directory.CreateDirectory("C:\zipps\")

If (fileName <> String.Empty) Then

Dim StreamWriter As FileStream = File.Create(theEntry.Name)

Dim Size As Integer = 2048

Dim data(2048) As Byte

While (True)

Size = s.Read(data, 0, data.Length)

If (Size > 0) Then

StreamWriter.Write(data, 0, Size)

Else

Exit While

End If

End While

StreamWriter.Close()

End If

theEntry = s.GetNextEntry()

Loop

s.Close()

 

 

 

could you please help me in this.

 

thanks and regards

rizwan