[vbscript] [msgbox] boutons pour ouvrir des fichiers

bonjour

j'ai une petite application qui effectue diverses taches répétitives
c'est juste un .bat qui a été compilé

à la fin, il ouvre une msgbox (vbs)

j'ai fait des recherches sur les boutons des msgbox, mais ça n'a pas donné grand chose

je voudrais que la boite offre 3 boutons:
un bouton oui qui ouvrirait un fichier log dans notepad (un simple .txt)
un bouton non qui se contente de fermer la boite
un bouton aide qui ouvre non pas un fichier .hlp, mais un fichier html dans le navigateur par défaut

j'en suis là:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim Msg, Style, Title, Help, Response, MyString Msg = "La tâche a bien été effectuée. Voulez vous voir le fichier log?" Style = vbYesNo + vbInformation + vbDefaultButton2 Title = "Information" Help = "DEMO.HLP" Response = MsgBox(Msg, Style, Title, Help) If Response = vbYes Then MyString = "Yes" wshShell.Run ("C:\log.txt") << ne marche pas Else MyString = "No" End If

---

est-ce possible?

bonjour,

Code:

---

wshShell.Run ("C:\log.txt") << ne marche pas

---

la variable objet wshShell a été instanciée ?
l'extension .txt est associée à notepad ?

bonjour

les .txt sont bien associés à notepad

par contre la variable objet wshShell a été instanciée... ça je ne sais même pas ce que ça veut dire

j'ai posté l'intégralité de mon script, donc je suppose que non

mais je ne sais pas comment le faire...

Citation:

---

Par contre la variable objet wshShell a été instanciée... ça je ne sais même pas ce que ça veut dire

---

quelque chose comme ça: :aie:

Code:

---

set WshShell = WScript.CreateObject("WScript.Shell")

---

re bonjour omen999, et merci de t'intéresser à mon cas :)

cette ligne telle qu'elle ne marche pas, mais grâce aux indications qu'elle m'a données j'ai pu faire marcher mon binz en déclarant la variable comme ceci:

Code:

---

1 2 3

Set WSHShell = WScript.CreateObject("WScript.Shell") set shell = wscript.CreateObject("Shell.Application") shell.Open "C:\file.txt"

---

voilà où en est mon code:

Code:

---

1 2 3 4 5 6 7

box = msgbox ("La tâche a été effectuée." & Chr(13) & "Voulez vous voir le fichier log? (si vide = 0 erreurs)" , vbYesNo+vbHelp+vbInformation+vbSystemModal , "Information") if box = vbyes then Set WSHShell = WScript.CreateObject("WScript.Shell") set shell = wscript.CreateObject("Shell.Application") shell.Open "C:\Program Files\application\log.txt" elseif box = vbNo then end if

---

question:

commande vbHelp
elle permet d'afficher un bouton "aide" dans une boite de dialogue en vbscript et lorsqu'on clique sur le bouton, elle lance un fichier au format *.hlp

mon binz a une page html d'aide...
et j'avoue que j'ai déjà assez à faire pour pas vraiment avoir envie de m'en fabriquer un, surtout qu'il serait pas si petit que ça

donc j'aimerais afficher le bouton d'aide, mais lui assigner une autre fonction
celle là, pour etre précis:

Code:

---

1 2 3

Set WSHShell = WScript.CreateObject("WScript.Shell") set shell = wscript.CreateObject("Shell.Application") shell.Open "C:\Program Files\application\Help_index.html"

---

pas moyen de trouver comment faire ça...


en fait, la commande msgbox en vbscript est completement basique et n'offre que très peu d'options...

si quelqu'un savait m'indiquer un moyen de faire une boite de dialogue avec un language plus complet, je serais preneur

merci

Citation:

---

si quelqu'un savait m'indiquer un moyen de faire une boite de dialogue avec un language plus complet, je serais preneur

---

facile :mrgreen: : http://www.developpez.net/forums/sho...d.php?t=214904

(vb6 pro requis pour compiler car je n'ai pas mis la dll dans le zip)

arf!

très très intéressant tout ça... mais je n'ai pas VB6 pro

est-ce qu'il y a un moyen d'utiliser ça quand même?

Citation:

---

est-ce qu'il y a un moyen d'utiliser ça quand même?

---

oui, avec la dll :

salut

je te remercie: ça me servira pas sur ce coup là parce qu'au final j'ai fait un .hta ce qui m'a permis de faire tout ce que je voulais facilement

mais ça me servira forcément très bientôt :)