| Créer un raccourci
de son application à partir de l'application elle-même. |
Fonction d'un
module : Public Sub Raccourci()
Dim WshShell As Object
Dim strdesktop As String
Dim oshellLink As Object
Set WshShell = CreateObject("WScript.Shell")
' Récupère le chemin du bureau
strdesktop = WshShell.specialFolders("Desktop")
'libellé du Raccourci
Set oshellLink = WshShell.CreateShortcut(strdesktop & "\Zeste.lnk")
With
oshellLink
'//chemin du raccourci :
.targetPath = "C:\VitamineC\Zeste_V1_03.mdb"
'//1 = ouverture en fenêtre normale (3
maximized, 7 minimized)
.WindowStyle = 1
'//raccourci clavier :
.HotKey = "CTRL+SHIFT+Z"
'//icône du Raccourci :
.IconLocation = "C:\VitamineC\Images\Lemon.ico"
'//Texte info-bulle du Raccourci :
.Description = "Cliquez ici pour
ouvrir Zeste"
'//destination du raccourci :
.WorkingDirectory = "C:\VitamineC"
'//enregistre le raccourci :
.Save
End With
End Sub |
