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) =>>> 'C:\Documents and Settings\xxxxx\Mis documentos\Proyecto1.exe
'js.Initialize("js",FileRun, params) 'NO RUN
js.Initialize("js","C:\Documents and Settings\XXXXX\Mis documentos\Proyecto1.exe", params)' YES RUN
js.WorkingDirectory = File.DirApp
js.Run(-1)
End Sub