>>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] >