AW: Grafik aus Hyperlink einbetten
09.10.2006 16:40:03
ANdreas
Hallo Lars,
zuerst müsstest Du dieses Bild erst mal herunterladen, danach kannst Du es auch einbinden:
Option Explicit
Private Declare
Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL$, _
ByVal szFileName$, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Sub Downl(Datei$, ZielLaufwerk$)
Dim lResult As Long
Dim sURL$, sLocalFile$
' URL zur Datei, die heruntergeladen werden soll
sURL = <a href=""http://www.blabla.bla/blablabla/"">"http://www.blabla.bla/blablabla/"</a> & Datei
' Dateiname auf dem lokalen System
sLocalFile = ZielLaufwerk & Datei
' Download ausführen
lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0)
' Rückgabewert auswerten
If lResult <> 0 Then
Else
End If
End Sub
Sub BeispielDownload()
Downl "picture.bmp", "C:\Temp\"
End Sub
Gruß
Andreas