Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>Sorry I would have time to explore the suggestions. I did find a way to accomplish my goal on my own. See the code below. I would be using this code either because the Technical Leader here prefers I do it a different way using a WCF service. Warning I was not able to test this code 100% since I am not planning to use it, but it is close to being right.</p> <p>Imports ICSharpCode.SharpZipLib.Zip</p> <pre><code>Public Shared Sub UnZip(ByVal SrcFile As String, ByVal DstFile As String, ByVal BufferSize As Integer) Try Dim _FileName As String Dim _ZipEntry As ZipEntry Dim _FileStreamOut As FileStream = Nothing Dim _Done As Boolean = False Dim _FileStreamIn As New FileStream(SrcFile, FileMode.Open, FileAccess.Read) Dim _ZipInStream As New ZipInputStream(_FileStreamIn) Do Until _Done = True _ZipEntry = _ZipInStream.GetNextEntry() If IsNothing(_ZipEntry) Then _Done = True Exit Do End If _FileName = DstFile &amp; "\" &amp; _ZipEntry.Name _FileName = _FileName.Replace("/", "\") If Right(_FileName, 1) = "\" Then If Directory.Exists(_FileName) = False Then Directory.CreateDirectory(_FileName) End If Else _FileStreamOut = New FileStream(_FileName, FileMode.Create, FileAccess.Write) Dim size As Integer Dim buffer(BufferSize - 1) As Byte Do size = _ZipInStream.Read(buffer, 0, buffer.Length) _FileStreamOut.Write(buffer, 0, size) Loop While size &gt; 0 End If Loop _ZipInStream.Close() _FileStreamOut.Close() _FileStreamIn.Close() Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub </code></pre>
    singulars
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload