By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
443,492 Members | 1,351 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 443,492 IT Pros & Developers. It's quick & easy.

Run time error for "Unable to complete your request"

P: 4
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
Aug 9 '07 #1
Share this question for a faster answer!
Share on Google+

Post your reply

Sign in to post your reply or Sign up for a free account.