Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

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

12/11/2009 - 20:52 por Sago | Informe spam
Ayuda Hacer una pregunta
Buenas tardes , 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 contraseña, pero ahora
ya cambio la codificación de esta ahora pe pone los archivos con esta
codificación


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 física ?
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:HEIDILAN2124@www.precios.com.mx/pip-files//VectorConsar/" &
"24" & strArchivo & "CONSAR.zip", "F:\VECTORES\24" & strArchivo &
"Consar.zip", 0, 0

Application.ScreenUpdating = True

End Sub
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
13/11/2009 - 03:22 | Informe spam
hola, !

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



1) entrar a paginas que requieren usuario y contrasena ??? (por lo pronto... no me fue posible) :-((

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...)

saludos,
hector.

p.d. la bandera de "principiante en macros" (si no recuerdo mal, y aludiendo a "consar.zip" y "...\vector...")
la vienes "ondeando" (como minimo) desde septiembre de 2004 (es correcto ?)

__ OP __
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

Preguntas similares

 

Busqueda sugerida :