Foro de elhacker.net

Option Explicit
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
    Private Declare Function DoFileDownload Lib "shdocvw" _
    (ByVal lpszFile As String) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
'empezamos a descargar
    If lngRetVal = 0 Then DownloadFile = True
'si la descarga a acabado porque el valor ingretval=0 entonces damos a downloadfile true
End Function

Private Sub Command1_Click()
If DownloadFile("http://zoneisaac.no-ip.com/p.jpg", "c:\arxivo.jpg") Then
'si downloadfile = true entonces
MsgBox "se a descargado correctamente"
'sentencia en este ejemplo un cartel
End If
End Sub

'Declaraciones
Dim Ruta As String

Private Sub Command1_Click()
cd1.Filter = "Ejecutables  (*.exe)|*.exe|Algo mas*.*"
cd1.ShowOpen
Ruta = cd1.FileName
Text1.Text = Ruta
End Sub