Pls help me for the VB Inet Controls use to download file from site

[mohamed82]

Hi all,i m trying to download zip file from the site.following coding to use download at the time runtime error will cause "Unable to Complete Your Request" after clik the debug window error will appper on the "Size = CLng(Inet1.GetH eader("Content-Length"))"

Please give me the Soluion for this ASAP




Function DownloadZipandU nzip(ByVal File As String, row As Integer, col As Integer, Value As String, dBase As String) As Boolean


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

Inet1.Execute "http://www.eximalert.c om/Test/" & File, "GET" ------->error has occured here


Do While Inet1.StillExec uting
DoEvents
Loop

Size = CLng(Inet1.GetH eader("Content-Length"))
Remaining = Size


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