grab image from internet

[matcathy]

Given a web address which contain an image (different image on everyday). Is it possible to download the image and save to a specific location on harddrive?
Thanks.

[Mark Sreeves]

yes!

put an internet transfer control and a command button onto a form and paste this in:

(it's a picture of me)


Private Sub Command1_Click()
Dim localFile As String
Dim remoteFile As String
Dim fNum As Long
Dim b() As Byte

remoteFile = "http://graffiti.virgin.net/dms.mbs/images/mark.jpg"
localFile = "C:\temp\mark.jpg"


fNum = FreeFile
' Retrieve the file as a byte array.
b() = Inet1.OpenURL(remoteFile, icByteArray)

Open localFile For Binary As #fNum
Put #fNum, , b()
Close #fNum
MsgBox "Done"
End Sub


------------------
Mark Sreeves
Analyst Programmer

Mark.Sreeves@Softlab.co.uk
A BMW Group Company