'**********************************************************
'EJECUTAR LA INSTALACION DESDE EL SHELL.
'AÑADIR JSHELL EN LAS LIBRERIAS
Dim shell As Shell
shell.Initialize("shell", File.DirTemp & "\" & sFile, Null)
shell.WorkingDirectory = File.DirTemp
shell.Run(-1)
'EJECUTAR LA INSTALACION DESDE EL SHELL.
'**********************************************************
ExitApplication