Obtener la URL de un archivo Tipo Acceso directo a Internet

hola, javier !

Range("A1") = Archivo.Size
Range("A2") = Archivo.Type
con estas lineas consigo el "Tama#o", y el "Tipo de archivo".
Pero es posible averiguar/obtener la direccion URL, por ejemplo en Range("A3")?.
Es para un archivo Tipo Acceso directo a Internet.
PD.: Estoy usando estas funciones o metodos:
Set ObjetoFSO = CreateObject("Scripting.FileSystemObject")
Set carpeta = ObjetoFSO.GetFolder(NombreCarpeta)

para obtener la direccion a la que 'apunta' un archivo/atajo de acceso directo a internet...
no te sirve un objeto 'Scripting.FileSystemObject' :-(
pero si otro de tipo: 'WScript.Shell' :))
prueba con lineas +/- como sigue:

With CreateObject("WScript.Shell")
With .CreateShortcut("Ruta y\Sub-carpetas\donde esta\Tu archivo.URL")
Range("a3") = .TargetPath
End With
End With

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Héctor Miguel escribió el 03/07/2006 01:32 :

hola, javier !

Range("A1") = Archivo.Size
Range("A2") = Archivo.Type
con estas lineas consigo el "Tama#o", y el "Tipo de
archivo".
Pero es posible averiguar/obtener la direccion URL, por ejemplo en
Range("A3")?.
Es para un archivo Tipo Acceso directo a Internet.
PD.: Estoy usando estas funciones o metodos:
Set ObjetoFSO = CreateObject("Scripting.FileSystemObject")
Set carpeta = ObjetoFSO.GetFolder(NombreCarpeta)

para obtener la direccion a la que 'apunta' un archivo/atajo de acceso directo
a internet...
no te sirve un objeto 'Scripting.FileSystemObject' :-(
pero si otro de tipo: 'WScript.Shell' :))
prueba con lineas +/- como sigue:

With CreateObject("WScript.Shell")
With .CreateShortcut("Ruta ySub-carpetasdonde estaTu archivo.URL")
Range("a3") = .TargetPath
End With
End With

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

podrias dar un ejemplo de como tiene que ir la ruta por favor

Héctor Miguel escribió el 03/07/2006 01:32 :

hola, javier !

Range("A1") = Archivo.Size
Range("A2") = Archivo.Type
con estas lineas consigo el "Tama#o", y el "Tipo de
archivo".
Pero es posible averiguar/obtener la direccion URL, por ejemplo en
Range("A3")?.
Es para un archivo Tipo Acceso directo a Internet.
PD.: Estoy usando estas funciones o metodos:
Set ObjetoFSO = CreateObject("Scripting.FileSystemObject")
Set carpeta = ObjetoFSO.GetFolder(NombreCarpeta)

para obtener la direccion a la que 'apunta' un archivo/atajo de acceso directo
a internet...
no te sirve un objeto 'Scripting.FileSystemObject' :-(
pero si otro de tipo: 'WScript.Shell' :))
prueba con lineas +/- como sigue:

With CreateObject("WScript.Shell")
With .CreateShortcut("Ruta ySub-carpetasdonde estaTu archivo.URL")
Range("a3") = .TargetPath
End With
End With

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

podrias dar un ejemplo de como iria la direccion