>CLOSE all >thisform.text1.value=GETFILE('dbf') >USE alltrim(thisform.text1.value) in 0 > >gcDelimName = ALIAS( ) + '.txt' >gcDelimFile = PUTFILE('text_file:', gcDelimName, 'txt') >IF EMPTY(gcDelimFile) > CANCEL >ENDIF >COPY TO (gcDelimFile) && Create not delimited file >COPY TO (gcDelimFile) TXT && error >SET DEFAULT TO d:\yousef >>