Raccourci sur le bureau

Question

Bonjour,
Je voudrait crée un raccourci sur le bureau d'un fichier avec Visual Basic Expresse 2010.
Pouvez vous me dire comment faire.
J'ai déjà chercher mais je n'ai trouver que pour la version 6.
Merci

Utilisateur anonyme · Answer

Bonjour,

Il faut parfois utiliser l'anglais dans les moteurs de recherche.
As-tu essayé avec les mots ShortCut et Desktop ?

Bonne chance.

zippedfire · Answer

Tu peux créer un raccourci avec ce code :

Dim Bureau As IWshRuntimeLibrary.WshShell

        Dim Raccourci As IWshRuntimeLibrary.WshShortcut

        Dim Nom As String

        Bureau = New IWshRuntimeLibrary.WshShell

        '   Chemin et nom du raccourci

        Nom = My.Computer.FileSystem.SpecialDirectories.Desktop & "\Monprogramme.lnk"

        Raccourci = CType(Bureau.CreateShortcut(Nom), IWshRuntimeLibrary.WshShortcut)

        '   Cible à exécuter

        Raccourci.TargetPath = Application.ExecutablePath

        '   Icône à utiliser

        Raccourci.IconLocation = Application.ExecutablePath

        '   Enregistrement du raccourci

        Raccourci.Save()

Mais avant veille à avoir la dll WshShellRuntimeLibrary
(dans C:\Windows\Interop.IWshRuntimeLibrary.dll)

Utilisateur anonyme · Answer

Merci zippedfire,
Mais une question, tu me dit d'avoir la dll WshShellRuntimeLibrary mais tous les utilisateur de l'application devrons l'avoir ?

ucfoutu · Answer

Bonjour,
Mais une question, tu me dit d'avoir la dll WshShellRuntimeLibrary mais tous les utilisateur de l'application devrons l'avoir ?
Voilà qui laisse entendre quer tu souhaites que tous les utilisateurs se retrouvent avec ce raccourci lors de l'installation. Est-ce bien cela ?
Si oui, il me semble bien que ce n'est là qu'une chose à définir si tu utilises INNOSETUP pour déployer ton appli, comme le précise ce tutoriel

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

Oui je veut que tout les utilisateurs l'aient.
Merci pour ton lien car je penser prendre VB pour crée un fichier d&#8217;installation.
Mais sur le lien que tu ma donner il disent d'aller voir le site de DarkSidious pour le scripte.
Mais le site n'existe plus donc aurait tu le fichier ou un autre lien pour le scripte.
Merci

ucfoutu · Answer

Mais le site n'existe plus donc aurait tu le fichier ou un autre lien pour le scripte
1) tu plaisantes ?
2) et tu ne sais pas chercher toi-même ? 
Allez ! je veux bien (on est Dimanche), mais ...
Tapez le texte de l'url ici.
Bon ...
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

zippedfire · Answer

Pour le dll, 
1) Va dans l'explorateur de solutions
2)Clique sur "Afficher les fichiers..."
3)Déploie "Références"
4)Clique sur "IWshShell..."
5)Dans les propriétés, met "Incorporer les types interop" True
Comme ça le dll sera intégré DANS le EXE.
T'éspère avoir résolu ton problème.





ZippedFire, The Z-Dimension Team

Raccourci sur le bureau

7 réponses

Votre réponse

Discussions similaires