Pamela don't you need to SELECT ZoneList before ENDSCAN?
>
>
>
>------------
>
> USE zonelist
> SCAN
> tmpzone = zone
> tmpfile = "zone" + alltrim(tmpzone) + ".dbf"
> wait window "DBF = " + tmpfile
> tmpfile2 = "zone" + alltrim(tmpzone) + ".txt"
> wait window "TXT = " + tmpfile2
> IF FILE("&tmpfile2")
> wait window "txt file exist for " + tmpzone
> DELETE FILE "&tmpfile2"
> ENDIF
> wait window "generate txt file for " + tmpzone
> USE "&tmpfile"
> COPY TO "&tmpfile2" type delimited
> ENDSCAN