Get files off of the web easily with this sub (uses Inet Control)
![Visual Basic 6, or VB Classic Visual Basic 6, or VB Classic](https://www.fortypoundhead.com//assets/img/icons/v7/vb6.png)
This sub will allow you to downloaded files off of the web by making one call. The syntax will look sometime to this effect:
Call GetInternetFile(Inet1, "http://www.fakeURL.com/~yup/picture.jpg", "c: emp")
Original Author: Blake Pell
Assumptions
For this sub to work you need to have an Inet control placed onto your form. After that it's just a matter of calling it.
Code
Public Sub GetInternetFile(Inet1 As Inet, myURL As String, DestDIR As String)
' Written by: Blake Pell
Dim myData() As Byte
If Inet1.StillExecuting = True Then Exit Sub
myData() = Inet1.OpenURL(myURL, icByteArray)
For X = Len(myURL) To 1 Step -1
If Left$(Right$(myURL, X), 1) = "/" Then RealFile$ = Right$(myURL, X - 1)
Next X
myFile$ = DestDIR + "" + RealFile$
Open myFile$ For Binary Access Write As #1
Put #1, , myData()
Close #1
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.