#599 - File Downloader med API från Internet Explorer

Skriv in en adress och tryck på download så öppnas en dialogruta för att ladda hem filen, fungerar även på filmer.

Programmet är väldigt litet och koden är inte större än såhär:

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

Private Sub Command1_Click()
On erro GoTo Err:
DoFileDownload StrConv(Text1.Text, vbUnicode)
Err:
MsgBox "Error! Check URL!", vbCritical, "Error"
End Sub