Download File Menggunakan IE

Di bawah ini merupakan procedure untuk mendownload sebuah file dengan memanfaatkan file bawaan IE (internet explorer) hdocvw.dll. Bagaimana implementasinya dalam Visual Basic 6.0? bisa Anda simak kodenya di bawah ini:

Option Explicit 
 
Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long 
 
Public Sub DownloadFile(URL As String) 
   Dim sDownload As String 
   sDownload = StrConv(Text1.Text, vbUnicode) 
   Call DoFileDownload(sDownload) 
End Sub 

Contoh penggunaan procedure di atas:

Private Sub Command1_Click()   
    DownloadFile "http://google.co.id" 
End Sub