"Une exception s’est produite." Création d'un raccourci.

Bonjour ou Bonsoir !

Je viens aujourd'hui pour poster un problème lorsque je veux créer un raccourci avec mon application :

Voici le code que j'utilise :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim Bureau As IWshRuntimeLibrary.WshShell Dim Raccourci As IWshRuntimeLibrary.WshShortcut Dim VarTrav As String     Bureau = New IWshRuntimeLibrary.WshShell   VarTrav = My.Computer.FileSystem.SpecialDirectories.Desktop & "\sco.exe"   Raccourci = Bureau.CreateShortcut(VarTrav)   Raccourci.TargetPath = "C:\Program Files (x86)\sConnect\MxDb.exe"   Raccourci.IconLocation = "C:\Users\Développeur\Desktop\vb\prmico.ico"   Raccourci.Save()

---

Le problème c'est quand j'appuie sur le bouton pour qu'il créer le raccourci, l'erreur suivante apparait :

Pièce jointe 188227

Je ne vois pas du tout d'où cela peut venir ...

Merci, Cordialement.

Bonsoir,

Si tu remplaces cette ligne :

Code:

---

1 2	VarTrav = My.Computer.FileSystem.SpecialDirectories.Desktop & "\sco.exe"

---

par cela :

Code:

---

1 2	VarTrav = My.Computer.FileSystem.SpecialDirectories.Desktop & "\sco.lnk"

---

Il y a de fortes chances que ça fonctionne. ;)

A+

Citation:

---

Envoyé par wallace1

Bonsoir,

Si tu remplaces cette ligne :

Code:

---

1 2	VarTrav = My.Computer.FileSystem.SpecialDirectories.Desktop & "\sco.exe"

---

par cela :

Code:

---

1 2	VarTrav = My.Computer.FileSystem.SpecialDirectories.Desktop & "\sco.lnk"

---

Il y a de fortes chances que ça fonctionne. ;)

A+

---

Parfait, merci beaucoup ;)