** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - Access y la Red: Descargar Archivos via AJAX
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAccess y la Red: Descargar Archivos via AJAX

 Responder Responder
Autor
Mensaje
genoma111 Ver desplegable
Administrador
Administrador
Avatar

Unido: 28/Marzo/2011
Localización: ...
Estado: Sin conexión
Puntos: 3248
Enlace directo a este mensaje Tema: Access y la Red: Descargar Archivos via AJAX
    Enviado: 12/Agosto/2013 a las 10:13
Este procedimiento sirve para descargarse archivos desde una página web a local sin necesidad de recurrir a la API

Public Sub DescargaArchivo(strPath As String, _
                            strWeb As String)

    Dim xml     As Object
    Dim bytS()  As Byte
    Dim fFile   As Long
      
    fFile = FreeFile
   
    Set xml = CreateObject("MSXML2.XMLHTTP")
   
        With xml
            .Open "GET", strWeb, False
            .send
            bytS = .responseBody
        End With
       
    Open strPath For Binary As #fFile
        Put #fFile, , bytS
    Close #fFile
      
    Set xml = Nothing
   
End Sub

Se usa así:

Private Sub Command1_Click()
    Dim strPath As String
    Dim strWeb  As String
   
    strWeb = "http://La página web/El archivo.La extensión"
    strPath = "C:\La ruta\El archivo.La extensión"
End Sub

Espero les sirva


Editado por genoma111 - 20/Agosto/2013 a las 18:30
"To VBA or not to VBA... that's the question" DFP
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable