谢谢　xvdongcn、谢谢　吹版！！！

谢谢各位大咖！！！
吹版：说实话，Windows API我没用过，目前还真不知道该怎么用。留着，等空下来我再好好学习一下。谢谢您！
SDTA、apull两位版主，都提到了隐藏的思路，我正在试。按照apull版主提供的代码，我建了个测试文件夹，很好用，一切都如相像中一样。但我把代码移植到我的程序中时，出现了一点问题。因为代码分散在不同的过程中，比较杂乱，所以也没办法完整上传代码。简单地说，问题出在目录是否存在的判断上：

我在程序外写：
？DIRECTORY("c:\recycled")，返回.F.

在程序里有：
if directory("C:\recycled")
qqu="AA"  &&没什么意义
ELSE
MD C:\recycled
endif

程序运行时，到　MD C:\recycled　这句提示　C:\recycled　已经存在。已经存在，不是应该执行　qqu="AA" 的吗，怎么跳到　ELSE　后面来了？

从整个程序看，在退出前，C:\recycled　已经改成正常文件夹的属性，并且已经删除。
删除的代码是：
run/n2 attrib -a -s -h -r C:\recycled
loFSO = Createobject("Scripting.FileSystemObject")
loFSO.DeleteFolder("C:\recycled")

不知程序运行时为何还会提示　C:\recycled　已经存在？

请赐教，谢谢！！！

RD | RMDIR 命令
从磁盘上删除一个目录或文件夹。

if directory("C:\recycled") = .F.
    MD C:\recycled
endif
qqu="AA"  &&没什么意义

还是“已经存在”！
到底在哪个角落里做了个“已经存在”的标记呢？？

recycled 应该是回收站的 NAME，换个名称试试

试了　RD c:\recycled，提示：
不能存取文件80004005:unspecified error

大神！！！果然是回收站名，果然是肯定存在的！改成recycled２后，没问题了。
不过，还有个问题：RD好像是删除空文件夹的，我这个recycled２里有东西，只删了recycled２下面的文件夹，recycled２还在，没删彻底。

留个空文件夹在那也不在乎了，反正里面的东西清空就好了
如果知道如何彻底删除，当然也是极好的

loFSO = Createobject("Scripting.FileSystemObject")
loFSO.DeleteFolder("C:\recycled2")
这个不行吗

下面的代码是本坛前任版主TONGDENG的大作
SET DEFAULT TO "D:\HS"
CLEAR ALL
CLEAR
DELDIR("A", .F.)
CLEAR ALL
INKEY(1)
DELETE FILE *.BAT
RETURN

*-----------------------------------------------------------
* 參數：tcDir -- 當前默認路徑下的文件夾名，也可以用絕對路徑
*       tlQuestion -- 是否需要確認，默認為要
*-----------------------------------------------------------
PROCEDURE DELDIR(TCDIR, TLQUESTION)
IF (PCOUNT() < 2) .OR. (VARTYPE(TLQUESTION) != "L")
   TLQUESTION = .T.
ENDIF
IF TLQUESTION .AND. (MESSAGEBOX("您确认删除文件夹" + TCDIR + "中的一切内容吗？", 32 + 4 + 256) != 6)
   RETURN
ENDIF
STRTOFILE("RD &tcDir /S /Q", "DELDIR.BAT")
RUN /N7 DELDIR.BAT
ENDPROC