hi ,
thank you very much,

i use putfile(),
it works.
i change it to ..maybe sombody need to do the same things

m.a=thisform.text2.Value
CLOSE all
USE (m.a)
gcDelimName = ALIAS( ) + '.xls'
gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls')
IF EMPTY(gcDelimFile)  && Esc pressed
   CANCEL
ENDIF
COPY TO (gcDelimFile) xls  && Create delimited file
MODIFY FILE (gcDelimFile) NOEDIT