Zde je funkční kód - na formuláři je textbox Text1 pro zadání adresy souboru ke stažení a tlačítko Command1 ke spuštění akce:
Option Explicit
Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal File As String) As Long
Private Sub Command1_Click()
DoFileDownload StrConv(Text1.Text, &H40)
End Sub
|