SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: nabeltz en Lunes 25 de Agosto de 2003, 12:36

Título: Re: Obtener path del Escritorio
Publicado por: 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.
Título: Re: Obtener path del Escritorio
Publicado por: Brroz en Lunes 25 de Agosto de 2003, 13:14
Échale un vistazo a este link a ver si te sirve para lo que quieres.

Http://guille.costasol.net/ejemplos/crear_links.htm (http://Http://guille.costasol.net/ejemplos/crear_links.htm)

Agur.
Título: Re: Obtener path del Escritorio
Publicado por: nabeltz en Lunes 25 de Agosto de 2003, 13:30
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!
Título: Re: Obtener path del Escritorio
Publicado por: Brroz en Lunes 25 de Agosto de 2003, 13:46
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.
Título: Obtener path del Escritorio
Publicado por: nabeltz en Lunes 25 de Agosto de 2003, 13:52
Tenias razón. Con eso ya me funciona perfectamente.
Muchisimas gracias!
AIO!