Sub btEjec_Action
Dim js As Shell
Dim params As List: params.Initialize
Dim FileRun As String
params.Add(File.DirApp)
FileRun=File.DirApp &"\Proyecto1.exe"
Log(FileRun) =>>>
js.Initialize("js","C:\Documents and Settings\XXXXX\Mis documentos\Proyecto1.exe", params)
js.WorkingDirectory = File.DirApp
js.Run(-1)
End Sub