Cómo descargar archivos de Internet

Iniciado por ANTRAX, Julio 26, 2010, 04:15:10 PM

Tema anterior - Siguiente tema

0 Miembros y 2 Visitantes están viendo este tema.

Julio 26, 2010, 04:15:10 PM Ultima modificación: Mayo 12, 2014, 03:26:27 PM por Expermicid
Código: vb
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


Código: vb
Dim Reply As Long
Reply = URLDownloadToFile(0, "http://dirección", "C:\archivo_destino", 0, 0)
If Reply = 0 Then
    'Descargado
Else
    'Error al descargar
End If


Dim Reply As Long, direccion as string, destino as string
direccion = text1.text ' ingresamos la url completa tal cual sino podemos concatenarlas con el http:// :P
destino = text2.text ' lo ago de esta manera para no entrar en detalles con el commondialog pero supongamos q lo 'hicimos asi con el common y carga la ruta en un txt
Reply = URLDownloadToFile(0, direccion, destino, 0, 0)
If Reply = 0 Then
    'Descargado
Else
    'Error al descargar
End If


un pokito mejor esta :D mas prof