Tema: FAQ's de VB6
Ver Mensaje Individual
  #173 (permalink)  
Antiguo 17/06/2008, 10:47
Avatar de David
David
Moderador
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 19 años, 2 meses
Puntos: 839
Pregunta ¿Cómo descargar archivos de Internet?

Código:
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:
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
__________________
Por favor, antes de preguntar, revisa la Guía para realizar preguntas.