DELETE FILE [FileName | ?] [RECYCLE]
 

参数
FileName
指定要删除的文件。提示：
FileName 可以包含通配符，比如 * 和 ?。例如，要删除当前目录中扩展名为 .bak 的备份文件，可以使用 DELETE FILE *.BAK。如果 FileName 包含空格，应使用引号("")括住整个文件名。
　

?　
显示删除对话框，可以选择要删除的文件。
RECYCLE
指定文件不是直接从磁盘上删除，而是放在 Windows 回收站中。警告：
使用此命令删除的任何文件都不能恢复。即使 SET SAFETY 命令设置为 ON，在删除文件前也不会得到警告信息。
　

说明
当发出 DELETE FILE 命令时，要删除的文件不能是打开的。如果文件所在驱动器、卷标或路径与默认的不同，则文件名必须包含路径。必须包含文件扩展名。

如果想要删除一个数据表，在删除文件之前，需要从数据库中移出表。在使用 DELETE FILE 命令之前，可以使用 REMOVE TABLE 命令。如果要删除一个带有 .FPT 备注文件的表，应确保删除此备注文件。

即使指定的文件不存在，此命令也不会产生一条错误。

DELETE FILE 命令与 ERASE 命令作用相同。

示例
在下例中，Customer.dbf 的结构和所有 country 字段为 USA 的记录都复制到名为 backup 的表。然后将 backup 中的数据复制到一个文本文件 temp 中，打开此文件，然后在关闭之后删除它。

  复制代码
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE customer  && 打开 Customer 表

COPY STRUCTURE TO backup
USE backup
APPEND FROM customer FOR country = 'USA'
COPY TO temp TYPE DELIMITED

WAIT WINDOW '按 Esc 关闭并删除 temp.txt' NOWAIT
MODIFY FILE temp.txt NOEDIT
DELETE FILE temp.txt
? IIF(FILE('temp.txt'),'文件没有被删除','文件被删除')
USE
DELETE FILE backup.dbf

以下是引用wzxc在2015-12-11 14:44:53的发言：

用ADIR( ) 函数将dbf表文件信息存放到数组中，
gnDbfnumber = ADIR(gatables, '*.DBf')  && 创建一个数组
FOR nCount = 1 TO gnDbfnumber  && 遍历表
SELECT  0
 use  &gatables(nCount,1)   &&宏替换用数组我没试过，如不行换一种方式。
  if reccount（）=0
   use
   DELETE FILE &gatables(nCount,1) &&宏替换用数组我没试过，如不行换一种方式。
  else
   use
  endif
ENDFOR
大体这个思路。如有语法错误，请自己调试（我要走了，没时间调试了)。

以下是引用wzxc在2015-12-11 14:44:53的发言：

用ADIR( ) 函数将dbf表文件信息存放到数组中，
gnDbfnumber = ADIR(gatables, '*.DBf')  && 创建一个数组
FOR nCount = 1 TO gnDbfnumber  && 遍历表
SELECT  0
 use  &gatables(nCount,1)   &&宏替换用数组我没试过，如不行换一种方式。
  if reccount（）=0
   use
   DELETE FILE &gatables(nCount,1) &&宏替换用数组我没试过，如不行换一种方式。
  else
   use
  endif
ENDFOR
大体这个思路。如有语法错误，请自己调试（我要走了，没时间调试了)。