VB6 Code - Mendownload Sebuah URL

Di bawah ini merupakan fungsi VB6 untuk mendownload sebuah URL. Adapun kode VB6 untuk mendownload sebuah URL adalah sebagai berikut:

Option Explicit

Private Function DownloadFile(ByVal sFileSource As String, ByVal sDestFile As String) As Boolean
   Dim bytes() As Byte
   Dim fnum As Integer
   bytes() = Inet1.OpenUrl(sFileSource, icByteArray)
   fnum = FreeFile
  
   Open sDestFile For Binary Access Write As #fnum
       Put #fnum, , bytes()
   Close #fnum
  
   DownloadFile = True
End Function

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click()
   Call DownloadFile("http://4basic-vb.blogspot.com", "C:\download.html")
End Sub

Demikian kode VB6 untuk mendownload sebuah URL. Semoga bermanfaat.