*实现功能:预置一个空的文件夹.
SET SAFETY OFF
IF DIRECTORY("E:\小精灵姓名文本")               &&文件夹存在
  IF ADIR(FARRAY,"E:\小精灵姓名文本\*.txt")=0   &&文件数为空
  hy=1                                          &&相当于什么也不做,随便给变量赋个值
  ELSE
  DELETE FILE "E:\小精灵姓名文本\*.txt"         &&文件夹存且有文件,就删除文件,保留空文件夹
  ENDIF
ELSE
   MD E:\小精灵姓名文本                         &&文件夹不存在就建立
ENDIF


结果提示: E:\小精灵姓名文本 已经存在.
问题好像出在:文件夹判断语句.
请分析.

SET SAFETY OFF
IF DIRECTORY("E:\小精灵姓名文本")               &&文件夹存在
  IF ADIR(FARRAY,"E:\小精灵姓名文本\*.txt")=0   &&文件数为空
     hy=1                                       &&相当于什么也不做,随便给变量赋个值
  ELSE
     DELETE FILE "E:\小精灵姓名文本\*.txt"      &&文件夹存且有文件,就删除文件,保留空文件夹
  ENDIF
ELSE
   MD E:\小精灵姓名文本                         &&文件夹不存在就建立
ENDIF
我单步执行，好像没什么问题啊。看语法，也看不出什么问题

vfp9.0测试了下  没你说的提示: E:\小精灵姓名文本 已经存在.
运行正常

看看其他地方还有无执行了类似“MD E:\小精灵姓名文本”的语句