Discussion :

[rdver]

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

[rdver]

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

Code :

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

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