Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Bajar archivos de internet

27/06/2006 - 18:21 por osalar01 | Informe spam
Ayuda Hacer una pregunta
Soy principiante, espero me puedan ayudar por favor anteriormente esta
instruccion funcionaba con una maquina con windows 98, la hice macro
que corriera en excel, pero ahora no se que le han movido y ahora no me
funciona.

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

Sub Bajar_Archivos_Internet()

URLDownloadToFile 0, "http://www.servidor.com/carpeta/archivo.dat",
"c:\archivo.dat", 0, 0
End Sub
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
28/06/2006 - 03:05 | Informe spam
hola, 'osalazar' !

... esta instruccion funcionaba con una maquina con windows 98
la hice macro que corriera en excel, pero ahora no se que le han movido y ahora no me funciona.



cuando haces llamadas a las API's de windows, y a alguna funcion 'interna' de sus librerias le 'aplicas' un Alias...
es necesario 'respetar' si y donde se trata de mayusculas/minusculas => Y...
-> delimtar el 'Alias' entre dobles comillas ;)

prueba modificando +/- a lo siguiente:

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

saludos,
hector.

Preguntas similares

 

Busqueda sugerida :