如果用downloadfile无法下载,试试自己封装一个方法。
Dim url As String = "http://www.foxtable.com/download/80222/update.zip"
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
Dim buffer(1024) As Byte
Dim fileStream As new System.IO.FileStream("d:\update.zip", System.IO.FileMode.Create, System.IO.FileAccess.ReadWrite)
Dim count As Integer = stm.Read(buffer, 0, buffer.Length)
Do While count > 0
buffer.Initialize
fileStream.Write(buffer, 0, count)
fileStream.Flush()
count = stm.Read(buffer, 0, buffer.Length)
Loop
fileStream.Close()
stm.Close