** 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: API. Bajada binaria fichero FTP
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAccess y la Red: API. Bajada binaria fichero FTP

 Responder Responder
Autor
Mensaje
 Valoración: Valorar tema: 1 Votos, Promedio 3.00  Tema Buscar Tema Buscar  Opciones del Tema Opciones del Tema
SuperAgente86 Ver desplegable
Colaborador
Colaborador


Unido: 11/Noviembre/2006
Localización: España
Estado: Sin conexión
Puntos: 1978
Enlace directo a este mensaje Tema: Access y la Red: API. Bajada binaria fichero FTP
    Enviado: 13/Agosto/2013 a las 08:13

'API de bajada binaria del fichero sin necesidad de hacerlo mediante FTP
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
'//////////////////////////////////////////////////////////////////


Uso de esta función API:
 

Public Function BajaFichero(URL As String, LocalFilename As String) As Boolean
  Dim lngRetVal As Long
  lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
  If lngRetVal = 0 Then BajaFichero = True
End Function 


Private Sub Prueba()
 If BajaFichero("http://w w w.mvp-access.com/ficheroRemoto.xls", "c:\FicheroLocal.xls") Then
      MsgBox "EL fichero se ha bajado de conformidad.", vbOKOnly, "Bajada satisfactoria."
 Else
      MsgBox "Ha ocurrido un error bajando el fichero.", vbCritical, "AVISO de ERROR"
 End If  
End Sub
 


Editado por genoma111 - 20/Agosto/2013 a las 18:38
Centro de Inteligencia y Seguridad:

Centro Nacional de Inteligencia
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable