Discussion :

[phoenix736]

Salut a tous!!

Jutilise pour la 1er fois la commande shell, et j'ai cru commprendre qu'on peut seulement lancer un fichier .exe source et pas un des ces racourci associés, qui on une extension .ink

Ya-t-il un moyen de lancer un racourci avec la commande sell ??

Merci a tous d'avance !!

++

[zazaraignée]

Salut

Ton raccourci pointe sur l'exécutable... Si tu lance un raccourci, il devra ensuite lancer l'exécutable. Pourquoi ne pas lancer l'exécutable avec ta commande Shell?

[daladim]

Salut,

je réponds pas trop à la question, mais tu as écrit

un des ces racourci associés, qui on une extension .ink

Je sais pas si c'est une faute de frappe, mais l'extension d'un raccourci, c'est .lnk

Sinon, si tu ne connais pas le chemin de l'executable à lancer, mais que tu connais son raccourci, essaye d'ouvrir le fichier raccourci en mode texte, le chemin d'accès du programme y est ecrit (mais c'est chaud de prendre juste le chemin du ficheir EXE, il est noyé dans d'autres caractères...)

Si ca peut t'aider...

[leroissejp]

Bonjour,
.InK est un nom Dos, pour toi ouvrir un programme fais comme dit plus haut , utilse la commande .exe
Un exemple (puisque tu dis que tu viens de découvrir la commande Shell.)
Cette procédure ouvre le prg WordPad et le fichier Text1.txt.

Code :

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

1
2
3
4
5
 
Private Sub Command1_Click()
Dim TaskID As Long
TaskID = Shell("C:\Program Files\Accessoires\WORDPAD.EXE  c:\Text1.txt", vbNormalFocus)
End Sub

jpleroisse

[phoenix736]

Merci paour ces conseils,

En fait je fait un programme qui permet de lancer d'autre programme choisis par l'utilisateur, il faut donc que je puisse lancer un programme .exe via son racourci...

La Methode de Daladim parait bien mais elle a l'air compliqué, y'aurait-il un moyen plus simple pour retrouver la ligne de commande du racourcis ??


Merci à tous !!
++

[SilkyRoad]

bonjour

je ne comprends pas ce que tu cherches à realiser , mais cet exemple permet de boucler sur tous les raccourcis du bureau et d'afficher le chemin de l'executable associé

ensuite , objItem.InvokeVerb permet de lancer directement les raccourcis

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
17
18
19
Sub bouclerSurRaccourcisBureau_lancerRaccourci()
Const Cible = &H10 'Desktop
'
Dim objShell As Object, objFolder As Object
Dim colItems As Object, objItem As Object
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(Cible)
Set colItems = objFolder.Items
 
For Each objItem In colItems
If objItem.IsLink Then
    Debug.Print objItem.GetLink.Path
    'objItem.InvokeVerb 'pour lancer le raccourci
    'Exit For
End If
 
Next
End Sub

bon apres midi
michel

[phoenix736]

Merci michel, ton code a lair trés bien,

je n'ai juste pas trés bien compris comment l'utiliser.

Merci beaucoup.

++