S
scorpion53061
For several reasons I needed to download an access database off the internet
in blocks instead of as a whole. However when using this code when I tried
to open the access database it created it reports that the database format
is unknown. Please help kind of desperate.....
..
local = File.Create("C:\newfile.mdb", 1023)
request = WebRequest.Create(filetoget)
response = request.GetResponse
stream = response.GetResponseStream()
Dim buffer(1023) As Byte
Try
With response.GetResponseStream
Do
n = stream.Read(buffer, 0, buffer.Length)
local.Write(buffer, 0, n)
Loop While n > 0
updatesuccessful = True
stream.Close()
local.Close()
MsgBox("complete")
End With
in blocks instead of as a whole. However when using this code when I tried
to open the access database it created it reports that the database format
is unknown. Please help kind of desperate.....
..
local = File.Create("C:\newfile.mdb", 1023)
request = WebRequest.Create(filetoget)
response = request.GetResponse
stream = response.GetResponseStream()
Dim buffer(1023) As Byte
Try
With response.GetResponseStream
Do
n = stream.Read(buffer, 0, buffer.Length)
local.Write(buffer, 0, n)
Loop While n > 0
updatesuccessful = True
stream.Close()
local.Close()
MsgBox("complete")
End With