Respuesta de aromman
1
Encontré este código que te ayuda a crear un shortcut.
Dim X As Long
X = Shell("rundll32.exe AppWiz.Cpl,NewLinkHere " & "c:\MiDirectorio\", 1)
Siendo MiDirectorio el directorio donde queremos que quede el acceso directo. Debe acabar en barra (\).
Fíjate si jugando un poco con este exe podes lograr lo que necesitas.
Dim X As Long
X = Shell("rundll32.exe AppWiz.Cpl,NewLinkHere " & "c:\MiDirectorio\", 1)
Siendo MiDirectorio el directorio donde queremos que quede el acceso directo. Debe acabar en barra (\).
Fíjate si jugando un poco con este exe podes lograr lo que necesitas.
