>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 >>
VFP Help: COPY TO FileName [DATABASE DatabaseName [NAME LongTableName]] [FIELDS FieldList | FIELDS LIKE Skeleton | FIELDS EXCEPT Skeleton] [Scope] [FOR lExpression1] [WHILE lExpression2] [ [WITH] CDX ] | [ [WITH] PRODUCTION ] [NOOPTIMIZE] [ [TYPE] [ FOXPLUS | FOX2X | DIF | MOD | SDF | SYLK | WK1 | WKS | WR1 | WRK | CSV | XLS | XL5 | DELIMITED [ WITH Delimiter | WITH BLANK | WITH TAB | WITH CHARACTER Delimiter ] ] ] [AS nCodePage]