Run time error for "Unable to complete your request"

[mohamed82]

Hi all. in my project using the inet controls for down loading zip file from site at the time error will occur for "unable to complete ur request" i think it will happening for the download more than 600 kb it will not working.that error message will occur.codings below i put the coding in function calling


--------------

Dim Size As Long, Remaining As Long, FFile As Integer, Chunk() As Byte
Dim loginString As String
Dim Max As Long

Inet1.Execute "http://www.eximalert.com/Test/" & File, "GET"

Do While Inet1.StillExecuting
DoEvents
Loop

Size = CLng(Inet1.GetHeader("Content-Length"))----->error will shown here
Remaining = Size

FFile = FreeFile
Open App.Path & "\" & File For Binary Access Write As #FFile
Do Until Remaining = 0
Form1.Height = 2955
ProgressBar1.Visible = True
If Remaining > 1024 Then
Chunk = Inet1.GetChunk(1024, icByteArray)
Remaining = Remaining - 1024
If ProgressBar1.Value < 100 Then
ProgressBar1.Value = ProgressBar1.Value + 1
End If
Else
Chunk = Inet1.GetChunk(Remaining, icByteArray)
Remaining = 0
End If

Put #FFile, , Chunk

Loop

Close #FFile
ProgressBar1.Value = ProgressBar1.Max

If unzipAlert(File) = True Then
Updated = True
End If
-----------------------

pls any one clear this problem

Regards
Mohamed