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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ???