Download files using Inet

[Anders Englund]

I'm having some serious problems with this. I'm trying to make an auto-update feature, but the inet won't download the whole file. This is the code I'm using now:

Public Function GetFile(strURL As String) As Variant
  Dim b() As Byte
On Error Resume Next
  With frmCom.inetDVD1138
    .RequestTimeout = 500
    .Protocol = icHTTP
    
    b = .OpenURL(strURL, 1)
    Do Until .StillExecuting = False
      DoEvents
    Loop
  End With
  GetFile = b

End Function

Any suggestions?

//Anders

Try this link: Create an Auto Update Feature

Hope that helps.

[/code]
Matthew Gates
Fanatic Member

Registered: Apr 2000
Posts: 666
[/code]

Hehe...666 posts..I'm the Devil!!! ;]..jk .

[Jop]

I have the source from a Auto-Update prog I wrote myself, if you want it, just reply or mail me

--------------------
Jop
Lively Member

Registered: Mar 2000
Posts: 72

I have 72 what does that mean?
I guess I'm just a lively member then
--------------------


[Edited by Jop on 07-19-2000 at 02:05 PM]

I'll take a look at it.

Please email me at [email protected].

Thank you.