Download ảnh từ internet lưu trữ trên máy tính

[tuhocvba]

'https://stackoverflow.com/questions/51858575/web-download-image-and-save-to-folder

Public Declare Function URLDownloadToFile Lib "urlmon" Alias _
   "URLDownloadToFileA" (ByVal pCaller As Long, _
   ByVal szURL As String, _
   ByVal szFileName As String, _
   ByVal dwReserved As Long, _
   ByVal lpfnCB As Long) As Long

Public Sub GURoL(url As String, FileName As String)
Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, url, FileName, 0, 0)
    If lngRetVal <> 0 Then
    MsgBox "GURol godo: Can't download from " & url & " to " & FileName
    End If
End Sub

Sub Download_Procedure()
Call GURoL("http://www.ka-net.org/office/office365icon/normal/ObjectAddText.png", _
           "D:\C\ObjectAddText.png") '<change your dest. path
End Sub