Application créant raccourci sur le bureau

Question

Bonjour à tous,

je cherche à créer une application installant tout simplement un raccourci sur le bureau lorsqu'on la lance (je précise que c'est dans un cadre professionnel).
On m'a orienté vers le langage visual basic, pouvez vous me le confirmer et me dire de quel outil j'ai besoin et vers quelle fonction de VB dois je chercher ?

Merci d'avance

Afficher la suite

byakhlefncr · Answer

Salut,Pour la création de raccourcis tu peux utiliser l'interface IShellLink Plus de détails : https://docs.microsoft.com/en-us/bonne chance

ricotrutt · Answer

Merci pour cette réponse.

sur un autre forum j'ai trouvé ce morceau de code qui semble convenir :

Dim Wsh As New WshShell

DesktopPath = Wsh.SpecialFolders("Desktop")
Set Shortcut = Wsh.CreateShortcut(DesktopPath & "\Test.lnk")
With Shortcut
    .TargetPath = App.EXEName
    .Description = "Mon Programme"
    .WindowStyle = 4
    .Save
End With

Le simple problème est que je ne sais pas comment l'utiliser. D'après ce que j'ai compris, je dois l'enregistrer en .vbs avec un éditeur de script et le convertir en .exe grâce à un convertisseur vbs to exe.
Pouvez vous me confirmer cela ?

byakhlefncr · Answer

Salut,

Voici un code testé :

'--------------------------------------------------------
'|
'| pour Déterminer le répertoire du bureau
'|
'--------------------------------------------------------
Set WshShell = CreateObject("WScript.Shell")
strDesktopPath = WshShell.SpecialFolders("Desktop")

'--------------------------------------------------------
'|
'| pour Création du lien sur le bureau du programme Bloc-notes(NotePad)
'|
'--------------------------------------------------------
Set objShortcutLnk = WshShell.CreateShortcut(strDesktopPath & "\Test.lnk")
objShortcutLnk.TargetPath = "notepad"
objShortcutLnk.Save

Bonne chance.

Application créant raccourci sur le bureau

3 réponses

Discussions similaires

Newsletters