Descargar archivo desde vb6

[Psyke1]

Código (vb) [Seleccionar] Expandir


'
' ///////////////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )  
' //                                                  
' // Web: http://InfrAngeluX.Sytes.Net/                
' //                                                        
' // |-> Pueden Distribuir Este Código siempre y cuando      
' // no se eliminen los créditos originales de este código    
' // No importando que sea modificado/editado o engrandecido  
' // o achicado, si es en base a este código                
' //////////////////////////////////////////////////////////////////////////
Option Explicit
Function DescargarArchivo(strDowload As String, SaveOn As String) As Long
On Error GoTo 1:
Dim xml                     As Object
Dim adoStream               As Object
   Set xml = CreateObject("Microsoft.XMLHTTP")
   Set adoStream = CreateObject("Adodb.Stream")
   Call xml.Open("GET", strDowload, 0)
   Call xml.Send
   adoStream.Type = 1
   Call adoStream.Open
   Call adoStream.write(xml.responseBody)
   Call adoStream.SaveToFile(SaveOn, 2)
   Call adoStream.Close
   DescargarArchivo = 1
Exit Function
1:
End Function


DoEvents!

[seba123neo]

esa funcion la habia posteado primero el usuario ||MadAntrax||

Downloader sin API's sin DLL's sin OCX's... solo una Función!

[BlackZeroX]

.
Uff de eso ya hace bastante tiempo, recuerdo que la cree cuando empezaba con Ajax y la traduje a vb6 después vi que era un molde bastante "básico" y rutinario (repetible) por decirlo de alguna manera, en su tiempo quedo aclarado el asuntito.

Llenándonos a algo mas de lleno a quien le agrade el diseño y codificación web lo sabra...

http://www.w3schools.com/ajax/default.asp

Dulces Lunas!¡.

[LeandroA]

Ese metodo es lindo para trabajar asicrono, por las dudas aparte de usar un timer sabes si se pude disparar el envento onreadystatechange, utilizando createobject.

Saludos.