VFP中删除非空的文件夹，用什么命令？

erase *.*
rd AAA

漏了
IF !EMPTY(sys(2000,"AAA\*.*"))
ERASE *.*RD AAA
ENDIF

楼主不知在那里会用到，一般是删除空的文件夹

有子文件夹存在，行不通

我做了一个报名系统，系统有一个设置比赛项目后，再产生一个子系统，各子系统报名后，上报报名数据，在母系统中汇总。

在发布子系统时，要先删除以前发布时生成的文件夹，但有时，用户因操作而在那个文件夹里新建了文件夹，母系统又不知道的

所以有得问了

改用ADIR好了

  LOCAL cdlmc
  cdlmc='报名管理系统'
  *-----------------
  IF DIRECTORY(cdlmc)
    IF DIRECTORY('.\'+cdlmc+'\ZP')
      RD ('.\'+cdlmc+'\ZP')
    ENDIF
    DELETE FILE ('.\'+cdlmc+'\*.*')    &&& ERASE  ('.\'+cdlmc+'\*.*')   
    RD (cdlmc)
  ENDIF
  *删除处理
  *-----------------
  IF !DIRECTORY(cdlmc)
    MD (cdlmc)
  ENDIF
  IF !DIRECTORY('.\'+cdlmc+'\ZP')
    MD ('.\'+cdlmc+'\ZP')
  ENDIF

  　……　
　　以上是系统设置.exe里面的部分代码（系统设置.exe——是母系统，科技竞赛报名管理系统.exe ——是子系统，通过系统设置.exe产生）

当‘报名管理系统'下没有多余的文件夹时，正常。当出现额外的文件夹（用户自建的）时，出错。

求解决办法！谢谢啦

[ 本帖最后由 wengjl 于 2012-2-11 16:29 编辑 ]

你不是已經解決了麼？

在CSDN未找到答案

你說什麼？