Discussion :

[mathisdu42]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :



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

Merci, Cordialement.

[wallace1]

Bonsoir,

Si tu remplaces cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Il y a de fortes chances que ça fonctionne.

A+

[mathisdu42]

Bonsoir,

Si tu remplaces cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Il y a de fortes chances que ça fonctionne.

A+

Parfait, merci beaucoup