HTTP download

[vijayanand]

How to download a file therough http protocol from VB

[oh1mie]

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Private Sub Command1_Click()
    LoadFileFromWeb "http://www.vnieminenky.fi/download/mdac_typ_fi.exe"
End Sub
Public Sub LoadFileFromWeb(FileOnInternet As String)
    
   Dim sDownload As String
   
   sDownload = StrConv(FileOnInternet, vbUnicode)
   Call DoFileDownload(sDownload)
 
End Sub