>hi all,
>
>i try to convert dbf to text file as this code,
>
>
>

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

>
>thanks

Check the help for the COPY TO command. There is no TXT option. You probably want something like:

COPY TO (gcDelimFile) DELIMITED WITH "" WITH BLANK

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]