Problème avec oShell.run

:salut:
Je suis en train de créer un fichier .hta qui (entre autre) permet d'executer le fichier que contient une <Input type="file" ... lors d'un clique sur un bouton :

Code:

---

1 2	<Input type="File" name="Fichier" id="Fichier"></BR> <Input type="Button" name="BtExecute" Value="Exécuter" OnClick="Executer_Fichier()">

---

Ce code appelle une fonction Executer_fichier, la voici

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Executer_Fichier() Set oFso=CreateObject("Scripting.FileSystemObject") Set oShell=CreateObject("Wscript.Shell") stFichier=Fichier.Value If Ofso.FileExists(stFichier) Then Oshell.run (stFichier)   Else Msgbox "Fichier " &Fichier &" inexistant !","Erreur",VbCritical End If End Sub

---

Le problème est que, lorsque je veux executer un fichier avec une extension inconnu, il y a un message d'erreur. Que puis-je faire pour que le code vbscript l'execute comme si l'utilisateur avait double-cliquer dessus ??? :zen:

:oops:Ooops...
Suis-je bête... J'ai trouvé ma réponse tout seule, il suffisait de faire:

Code:

---

oShell.run "cmd /c " & stFichier,0

---