Gruppe
API
Problem
Eine Grafik-Datei wird aus dem Internet importiert. Das Zielverzeichnis wird abgefragt.
StandardModule: Modul1
Private Declare Function DoFileDownload Lib "shdocvw.dll" _
(ByVal lpszFile As String) As Long
Sub GifImport()
Dim sPath As String
Dim UniCodeURL As String
sPath = Application.DefaultFilePath
ChDrive Left(sPath, 1)
ChDir sPath
UniCodeURL = StrConv("https://www.herber.de/images/start1.gif", vbUnicode)
DoFileDownload UniCodeURL
End Sub