Cambio de ruta en archivos

... tenia una macro que me bajaba archivos de internet con password y contrasena y me los descargaba en una ruta especifica
de un tiempo a la fecha ya no funciona y hable al sitio para que me ayudaran, pero me dijeron que por seguridad ya habia cambiado.
anteriormente me los bajaba con este codigo

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

Dim strArchivo As String

Sub Bajar_Archivos_Intenet()
strArchivo = Format(Date, "yyyymmdd")
URLDownloadToFile 0, "http://USUARIO:/pip-files//VectorConsar/" & "24" & strArchivo & "CONSAR.zip", "F:\VECTORES\24" & strArchivo & "Consar.zip", 0, 0

End Sub

lo poco que pude investigar es que ahora lo ponen en esta ruta:
URLDownloadToFile 0, "http://USUARIO:CONTRASEà‘/aspnet/archivos/detalle.aspx?ruta=/VectorConsar/" & "24" & strArchivo & "CONSAR.zip", "F:\VECTORES\24" & strArchivo & "Consar.zip", 0, 0

Pero no me baja nada solo el archivo vacio, espero me puedan ayudar ya que para mi operacion es muy importante.

hola, !

hay ciertos "detalles" que no se desprenden de tu consulta, pero...
revisa la siguiente conversacion: -> http://tinyurl.com/4h2mxj
incluye una sugerencia para primero loggear con: user=... password=... y continuar con: action=Login
y despues abrir la pagina o seccion que necesitas ;)

la otra alternativa (ya que "los del sitio" no dieron la suficiente informacion...)
es que continues bajando los archivos de la forma "tradicional"
(o sea, entrando normal al sitio y descargando desde donde corresponda)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __
> ... tenia una macro que me bajaba archivos de internet con password y contrasena y me los descargaba en una ruta especifica
> de un tiempo a la fecha ya no funciona y hable al sitio para que me ayudaran, pero me dijeron que por seguridad ya habia cambiado.
> anteriormente me los bajaba con este codigo
>
> 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
>
> Dim strArchivo As String
>
> Sub Bajar_Archivos_Intenet()
> strArchivo = Format(Date, "yyyymmdd")
> URLDownloadToFile 0, "http://USUARIO:/pip-files//VectorConsar/" & "24" & strArchivo & "CONSAR.zip", "F:\VECTORES\24" & strArchivo & "Consar.zip", 0, 0
>
> End Sub
>
> lo poco que pude investigar es que ahora lo ponen en esta ruta:
> URLDownloadToFile 0, "http://USUARIO:CONTRASEà‘/aspnet/archivos/detalle.aspx?ruta=/VectorConsar/" & "24" & strArchivo & "CONSAR.zip", "F:\VECTORES\24" & strArchivo & "Consar.zip", 0, 0
>
> Pero no me baja nada solo el archivo vacio, espero me puedan ayudar ya que para mi operacion es muy importante.

... como quedaria la opcion de user y password, ya que soy contador y principiante en macros.
user=...
password=...
action=Login

No habra otro siti donde pueda consultar esta conversacion http://tinyurl.com/4h2mxj
ya que en mi trabajo tienen bloqueado este sitio...