debugstr=FULLPATH(_myprg)+CHR(13)+CHR(10)+'1.   '+STR(SECONDS())+CHR(13)+CHR(10)
COPY MEMO frt TO (_myprg)
=ADIR(m, _myprg)
debugstr=debugstr+'2.   '+STR(SECONDS())+'   '+STR(m(1,2))+CHR(13)+CHR(10)
sql_lib.open_file(_myprg, .f.)
RELEASE m
=ADIR(m, _myprg)
debugstr=debugstr+'3.   '+STR(SECONDS())+'   '+STR(m(1,2))+CHR(13)+CHR(10)

RELEASE m
APPEND MEMO frt FROM (_myprg) OVERWRITE 
debugstr=debugstr+'4.   '+STR(SECONDS())+CHR(13)+CHR(10)
ERASE (_myprg)
debugstr=debugstr+'5.   '+STR(SECONDS())+CHR(13)+CHR(10)

oApplicat=CREATEOBJECT("WScript.Shell")
oerror=.f.
TRY
	oApplicat.Run('"'+m.file_name+'"' , 3, .t.)
CATCH TO oerror
	MESSAGEBOX(oerror.message,16,"Файл "+m.file_name+" не открыт")
ENDTRY