Search Tools Links Login

Get files off of the web easily with this sub (uses Inet Control)


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

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 78 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.