[VBS] Redirection (équivalent Goto ms-dos)

**Edoxituz** · 23/02/2006, 19h24

Bonjour, je voudrai créer un VBS ouvre une boite de dialogue MsgBox proposant deux action, 1 et 2, je par avec ce code:

Code :

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

1
2
3
4
 set WshShell = WScript.CreateObject("WScript.Shell") 
   variable = MsgBox("Voulez vous .........", vbYesNo) 
   If variable = vbYes Then WshShell.Run "msimn.exe"
   If variable = vbNo Then WshShell.Run "mspaint.exe"

Donc ici les si on clique sur oui il ouvre Outlook Express et si on clique sur non il ouvre Paint, mais je voudrai faire une sotre de redirection ver deux code différent dans le VBS, quelqu’un saurait-il me renseigner ?

**SfJ5Rpw8** · 23/02/2006, 19h34

tu peu créer des procédures ... (ou fonctions..) pour organiser ton code ...

tiens un exemple :

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
set WshShell = WScript.CreateObject("WScript.Shell") 
variable = MsgBox("Voulez vous .........", vbYesNo) 
Select Case Variable
     Case vbYes
       LanceOutlook
     Case vbNo
       LancePaint
 End Select
 
 
 
sub LanceOutlook
    MsgBox "msimn.exe" 
end sub
Sub LancePaint
  MsgBox  "mspaint.exe"
end

**Edoxituz** · 23/02/2006, 19h49

Bojour et merci bbil

Se script renvoi une erreur à la ligne 17, Sub attendu.

**SfJ5Rpw8** · 23/02/2006, 19h53

lol j'ai raté le dernier Sub ... dans le copier coller ...

end Sub

**Edoxituz** · 23/02/2006, 19h53

S'été tout simple:

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
set WshShell = WScript.CreateObject("WScript.Shell") 
variable = MsgBox("Voulez vous .........", vbYesNo) 
Select Case Variable 
     Case vbYes 
       LanceOutlook 
     Case vbNo 
       LancePaint 
 End Select 
 
 
 
sub LanceOutlook 
    MsgBox "msimn.exe" 
end sub 
Sub LancePaint 
  MsgBox  "mspaint.exe" 
end sub