RE:Abrir un archivo con una determinada aplicacion
Bueno la idea esta buena pero imagina cuantos choos case tengo ke hacer para muchas aplicaciones mira esta noche la he pasado pensando y buscando por www.sangoogle.com y pues he llegado a esto
--------------------------------------------------------------------------------------------------------------
BOTON DE ABRIR ARCHIVO
--------------------------------------------------------------------------------------------------------------
//FileDelete("C:\Programas\Clase 01\open.bat")
FileDelete("C:\open.bat")
FileDelete("C:\del.bat")
string ls_ruta,ls_nombre
integer li_rtn
li_rtn = GetFileOpenName("Seleccionar un Archivo",ls_ruta,ls_nombre, "DOC", "All Files (*.*), *.*","C:\Program Files\Sybase", 18)
sle_1.text=ls_ruta
sle_2.text=ls_nombre
--------------------------------------------------------------------------------------------------------------
BOTON DE ABRIRLO CON EL DETERMINADO PROGRAMA
--------------------------------------------------------------------------------------------------------------
//grabamos el archivo como bat para despues ejecutarlo
integer ls_archivo,lon,lon1,total,ls_destructor
string a,b
lon=len(sle_1.text)
lon1=len(sle_2.text)
total=lon - lon1
a=sle_1.text
a = Left(a,total)
ls_archivo = FileOpen("C:\open.bat", LineMode!, Write!, LockWrite!, Append!)
ls_destructor = FileOpen("C:\del.bat", LineMode!, Write!, LockWrite!, Append!)
FileWrite(ls_archivo, 'cd\' )
FileWrite(ls_archivo, 'cd /d '+ a)
FileWrite(ls_archivo, '"'+sle_2.text+'"')
FileClose(ls_archivo)
run('C:\open.bat',minimized!)
FileWrite(ls_destructor, 'cd\')
FileWrite(ls_destructor, 'taskkill /F /IM cmd.exe')
FileClose(ls_destructor)
run('C:\del.bat',minimized!)
Gracias amigo, pero voy a investigar sobre la forma de respuesta que m estas dando para llegar a hacer el mismo programa pero con diferentes funciones
atte Joanmigo_juegos