Hi,
This works with the ipworkszip ver 6.0
Dim request As WebRequest
Dim response As WebResponse
Dim reader As Stream
Dim writer As Stream
Dim data(1023) As Byte
Dim count As Integer
Dim total As Integer
Me.Show()
Me.Text = "Downloadin g file ....."
Application.DoE vents()
request =
WebRequest.Crea te("http://www.onteorasoft ware.com/downloads/multigrids.zip" )
response = request.GetResp onse()
reader = response.GetRes ponseStream()
ProgressBar1.Ma ximum = CInt(response.C ontentLength)
ProgressBar1.Va lue = 0
total = 0
writer = File.Create("my localdata.zip")
While True
count = reader.Read(dat a, 0, 1024)
If count <= 0 Then
Exit While
End If
writer.Write(da ta, 0, count)
total += 1024
If total < ProgressBar1.Ma ximum Then ProgressBar1.Va lue = total
Application.DoE vents()
End While
reader.Close()
writer.Close()
Application.DoE vents()
Me.Text = "Extracting.... ........."
Application.DoE vents()
zip1.ArchiveFil e = "mylocaldata.zi p"
zip1.ExtractToP ath = "C:\Zip Test"
'Zip1.Password = "test" 'if applicable
zip1.ExtractAll ()
Me.Text = "Done"
Ken
------------------------------
"Loane Sharp" <lo************ @hotmail.com> wrote in message
news:uB******** ******@TK2MSFTN GP15.phx.gbl...
Hi Ken
Thanks for your reply.
I tried the code, which was very similar to my own, but I get the same
problem: "(file) in use by another process". P.S. I'm using nsoftware's
IPWorksZip rather than C1Zip, but that shouldn't make a difference, should
it?
"Ken Tucker [MVP]" <vb***@bellsout h.net> wrote in message
news:er******** ******@TK2MSFTN GP10.phx.gbl...
Hi,
Here is an example of how to download and unzip a file. It
uses
the component one zip dll which was included with the vb.net resource kit.
Sorry the offer has ended for the resource kit so I cant post a link.
Dim request As WebRequest
Dim response As WebResponse
Dim reader As Stream
Dim writer As Stream
Dim data(1023) As Byte
Dim count As Integer
Dim total As Integer
Me.Show()
Me.Text = "Downloadin g file ....."
Application.DoE vents()
request =
WebRequest.Crea te("http://www.onteorasoft ware.com/downloads/multigrids.zip" )
response = request.GetResp onse()
reader = response.GetRes ponseStream()
ProgressBar1.Ma ximum = CInt(response.C ontentLength)
ProgressBar1.Va lue = 0
total = 0
writer = File.Create("my localdata.zip")
While True
count = reader.Read(dat a, 0, 1024)
If count <= 0 Then
Exit While
End If
writer.Write(da ta, 0, count)
total += 1024
If total < ProgressBar1.Ma ximum Then ProgressBar1.Va lue = total
Application.DoE vents()
End While
reader.Close()
writer.Close()
Dim mzip As New C1.C1Zip.C1ZipF ile
'
mzip.Open("mylo caldata.zip")
Me.Text = "Extracting.... ........."
Me.ProgressBar1 .Value = 0
Me.ProgressBar1 .Maximum = mzip.Entries.Co unt
Dim z As Integer = 0
For Each x As C1.C1Zip.C1ZipE ntry In mzip.Entries
Dim fiZip As New System.IO.FileI nfo(x.FileName)
Dim strDir As String = fiZip.Directory Name.ToString
If Not Directory.Exist s(strDir) Then Directory.Creat eDirectory(strD ir)
Trace.WriteLine (x.FileName)
z += 1
ProgressBar1.Va lue = z
mzip.Entries.Ex tract(x.FileNam e, fiZip.FullName)
Application.DoE vents()
Next x
Me.Text = "Done"
Ken
-----------------------
"Loane Sharp" <lo************ @hotmail.com> wrote in message
news:Oa******** *****@TK2MSFTNG P12.phx.gbl...
Hi there
I use the FileStream object to download a zip file over the internet to my
local disk. The file downloads successfully, but when I attempt to unzip
it,
I'm told that the file is in use by another process. This occurs even if I
release the object using fs.Close() and fs = Nothing.
Please help (my code is given below)
Best regards
Loane
'Create a new filestream to receive data ...
Dim fs_App As FileStream = New FileStream("C:\ app.zip", FileMode.Create )
'Instantiate a new byte variable to receive data ...
datBuffer = New Byte(1023) {}
'Create a webrequest/response ...
Dim reqSync_App As WebRequest =
WebRequest.Crea te("http://123.com/app.zip")
Dim respSync_App As WebResponse = reqSync_App.Get Response()
'Retrieve file details (ie. file length) ...
Dim strm_App As Stream = respSync_App.Ge tResponseStream ()
len_App = respSync_App.Co ntentLength()
'Declare variable to track number of bytes downloaded ...
Dim cnt_App As Integer
'Iteratively download Kb by Kb ...
While total <= len_App
cnt_App = strm_App.Read(d atBuffer, 0, 874)
If cnt_App <= 0 Then Exit While
fs_App.Write(da tBuffer, 0, cnt_App)
total += cnt_App
End While
'Close the response/stream/filestream ...
respSync_App.Cl ose()
strm_App.Close( )
fs_App.Close()
'Release from memory ...
respSync_App = Nothing
strm_App = Nothing
fs_App = Nothing
