" ruta de acceso virtual", ¿ sacar la ruta de acceso física ?

... soy principiante en macros, pero me gusta mucho aprender (...)

tenia una macro que funcionaba correctamente, que un sitio de internet que me bajaba archivos en una ruta de internet
con pasword y contrasena, pero ahora ya cambio la codificacion de esta ahora pe pone los archivos con esta codificacion
http://www.precios.com.mx/aspnet/ar...consaract#
En este pedazo de codigo.." aspnet/archivos/Vespe.aspx" la " ruta de acceso virtual"
pero como consigo sacar la ruta de acceso fisica ?
estuve leyendo el siguiente enlace.
http://docentes.uacj.mx/jpaz/WebApp...e7a5bd.htm
Como puedo modificar mi macro para obtener la ruta de acceso fisica para poder otra vez bajar mis archvos.

Dim rootPath As String = Server.MapPath("~")

Espero me puedan ayudar por favor.
Saludos.

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()
Application.ScreenUpdating = False
strArchivo = Format(Date, "yyyymmdd")
'URLDownloadToFile 0, "http://HEIDILAN:/pip-files//VectorConsar/" & "24" & strArchivo & "CONSAR.zip", "F:\VECTORES\24" & strArchivo & "Consar.zip", 0, 0
Application.ScreenUpdating = True
End Sub

2) buscando algunas (posibles) respuestas de aplicacion, resulto que "san" google, ha dejado de lado su "aureola" (nanais)
si te es posible, realiza una busqueda de mensajes que contengan: => .Document.Body.InnerText
(teniendo tu la posibilidad de acceso a la pagina que necesitas, y algo que pesques de esas conversaciones, posiblemente...)