Como Hacer Accesos directos?

[Keyenight]

Lo que dice el titulo como creo accesos directos, quisas sea algo facil xD el punto es que no lo se hacer.
Gracias de antemano.

[David]

Una forma es usar el objeto WScript.Shell. De esta forma:

Código vb:

Dim System As Object
Dim Link As Object
Set System = CreateObject("WScript.Shell")
Set Link = System.CreateShortcut("Ruta donde se creará el Acceso Directo")
Link.Description = "Descripción"
Link.HotKey = "Hotkey (Opcional)"
Link.IconLocation = "Ícono del Acceso Directo"
Link.TargetPath = "Ruta a la que apunta el Acceso Directo"
Link.WorkingDirectory = "Directorio de Trabajo"
Link.Save
Set Link = Nothing
Set System = Nothing
 

[Keyenight]

Gracias David el Grande, siempre ayudas. Me sirvio muy bien.