Bajar archivos de internet

27/06/2006 - 18:21 por osalar01 | Informe spam

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

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

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.

Responder a este mensaje

#2 osalar01

28/06/2006 - 20:06 | Informe spam

Hector muchas gracias por responderme, Ya cambie lo que me dijiste y
aun no funciona, que mas podria estar mal en la maquina,
¿configuración de Internet explorer?, o alguna otra configuracion?

Espero que me puedas ayudar otra vez.

Saludos desde D.F.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida