Kopier billed fra hjemmeside til program mappe, og vis

Indsæt en Microsoft Internet Transfer Control komponent ("Inet1"), og en Picture ("Picture1")..

Option Explicit
Dim strURL As String
Dim bData() As Byte
Dim intFile As Integer
Dim billedesti As String

Private Sub Download_Click()
On Error GoTo ShowErr

strURL = "http://www.ebruger.dk/img/site/e_logo.jpg"
intFile = FreeFile()
bData() = Inet1.OpenURL(strURL, icByteArray)
Open billedesti For Binary Access Write As #intFile
Put #intFile, , bData()
Close #intFile
Picture1.Picture = LoadPicture(billedesti)
Exit Sub

ShowErr:
MsgBox Err.Number & " - " & Err.Description, vbCritical, "Error"
End Sub

Private Sub Form_Load()
billedesti = App.Path & "\e_logo.jpg"
End Sub

..og en knap der hedder "Download"

thx

Takker for points! :-)

Du kunne også have brugt den her :
http://www.mentalis.org/apilist/A9157204909015547863E48E3E348BE6.html

Den gemmer ikke billede på din harddisk, men downloader det til din picturebox. ;)