Cómo crear un acceso directo a un archivo en programación VB
Privado
Sub
Form_Load()
Etiqueta1.Visible
=
Falso
Etiqueta1.LinkTopic
=
"Progman|Progman"
Etiqueta1.LinkMode
=
2
Label1.LinkTimeout
=
100
'Crear en "Inicio" -Programa " Directorio "Mi juego"
Label1.LinkExecute
"[CreateGroup(My Game)]"
'Crear en el directorio "Mi juego" Acceso directo a "a "
Label1.LinkExecute
"[AddItem(c:\a.exe)]"
'Crear en el menú de inicio" un" acceso directo
Label1.LinkExecute
"[ShowGroup(Inicio, 4)]"
Label1.LinkExecute
" [AddItem(c:\a .exe)]"
'Crear un acceso directo a "a" en el escritorio
FileCopy
Environ("userprofile")
amp;
"\"Inicio" Menú\Programas\Inicio\a.lnk",
Environ("userprofile")
amp;
"\Desktop\a.lnk"
'Mueva el acceso directo en el directorio de inicio al escritorio (al realizar esta operación, debe asegurarse de que no haya ningún a.lnk en el escritorio Sólo se puede utilizar este archivo)
'Nombre
Environ("userprofile")
amp;
"\"Inicio" menú\ Programa\Inicio\a.lnk"
Como
Environ("perfil de usuario")
amp;
"\Escritorio \a .lnk"
Label1.LinkTimeout
=
50
'Restaurar valor inicial
Label1 .LinkMode
=
Fin
Sub