[]Commande shell

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 !!

++ :D

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?

Salut,

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

Citation:

---

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...

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:

---

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

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 !!
++

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:

---

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

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

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

Merci beaucoup.

++