' En el TextBox1 pon el archivo a bajar : http://www.codigoplus.com/algo.gif ' en el TextBox2 va el destino : c:\algo.gif Private 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 Private Const ERROR_SUCCESS As Long = 0 Private Const BINDF_GETNEWESTVERSION As Long = &H10 Private Const INTERNET_FLAG_RELOAD As Long = &H80000000 Private Sub Command1_Click() Dim sSourceUrl As String Dim sLocalFile As String sSourceUrl = Text1 sLocalFile = Text2 Screen.MousePointer = vbHourglass Command1.Caption = "Espera..." Command1.Enabled = False DoEvents If DownloadFile(sSourceUrl, sLocalFile) Then Screen.MousePointer = vbNormal MsgBox "Archivo bajado" Else Screen.MousePointer = vbNormal MsgBox "Error" End If Command1.Enabled = True Command1.Caption = "Bajar Archivo" End Sub Public Function DownloadFile(sSourceUrl As String, sLocalFile As String) As Boolean DownloadFile = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS End Function