Autor Tema: Re: Obtener path del Escritorio (Leído 1452 veces)

nabeltz · « **en:** Lunes 25 de Agosto de 2003, 12:36 »

Hola!
Me gustaria saber si es posible obtener de algún modo el path del Escritorio, ya que quiero crear mediante código un acceso directo allí.
Muchas gracias.

Brroz

Échale un vistazo a este link a ver si te sirve para lo que quieres.

Http://guille.costasol.net/ejemplos/crear_links.htm

Agur.

nabeltz

La verdad es que no me funciona. Pongo lo siguiente:

Private m_wsShell As Variant
Private Sub Command4_Click()
' Crearlo en el escritorio:
Dim sLnkPath As String
sLnkPath = m_wsShell.SpecialFolders("Desktop")
End Sub

Pero me dice que al hacer el SpecialFolders se requiere un objeto. He intentado probar haciendole algunos cambios pero me sigue dando elmismo error. Gracias de todos modos.
Mila esker! Agur!

Brroz

El fallo está en que debes inicializar la variable m_wsShell como un objeto antes de usar ningún miembro de la misma. Hazlo tal que así:

Set m_wsShell = CreateObject("WScript.Shell")

Acuerdate de hacer cuando acabes Set m_wsShell = Nothing para liberar la referencia al objeto.

Me imagino que con esto arreglarás.
Aupa.

nabeltz

Tenias razón. Con eso ya me funciona perfectamente.
Muchisimas gracias!
AIO!