* В следующем примере структура таблицы CUSTOMER.DBF и все записи,
* относящиеся к стране USA, копируются в таблицу backup. Затем
* содержимое таблицы backup копируется в текстовый файл temp, который
* перед этим открывается; в конце этот файл закрывается и удаляется.

CLOSE DATABASES

OPEN DATABASE (HOME( ) + 'samples\data\testdata')

USE customer && Opens customer table

COPY STRUCTURE TO backup

USE backup

APPEND FROM customer FOR country = 'USA'

COPY TO temp TYPE DELIMITED

WAIT WINDOW 'Press Esc to close and erase temp.txt' NOWAIT

MODIFY FILE temp.txt NOEDIT

ERASE temp.txt

? IIF(FILE('temp.txt'),'File not deleted','File deleted')

USE

ERASE backup.dbf