Programación General > Visual Basic 6.0 e inferiores

 Re: Obtener path del Escritorio

(1/1)

nabeltz:
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!

Navegación

[0] Índice de Mensajes