以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  删除目录出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13976)
--  作者：明丰
--  发布时间：2011/11/3 16:22:00
--  删除目录出错

If FileSys.DirectoryExists("F:\\翻译3") = False Then \'没有该文件夹
    FileSys.CreateDirectory("F:\\翻译3") \'创建文件夹
End If
If FileSys.DirectoryExists("F:\\翻译3")  Then \'判断有没有该文件夹
    FileSys.DeleteDirectory("F:\\翻译3" ,3,3) \'删除该文件夹
End If

 

在命令窗口执行上面代码,当出现"确实要删除文件夹"翻译3"并将所有内容移入回收站吗？"时,点击按钮"否"会出错,请问如何设置?
--  作者：blackzhu
--  发布时间：2011/11/3 16:24:00
--  
If FileSys.DirectoryExists("F:\\翻译3") = False Then \'没有该文件夹
    FileSys.CreateDirectory("F:\\翻译3") \'创建文件夹
else
    FileSys.DeleteDirectory("F:\\翻译3" ,3,3) \'删除该文件夹
End If

这样?
--  作者：狐狸爸爸
--  发布时间：2011/11/3 16:25:00
--  
说不定这个目录不允许删除啊
--  作者：明丰
--  发布时间：2011/11/3 16:40:00
--  
按"是",可以正常删除目录,如果不想删除目录,按"否"就出错了.
--  作者：狐狸爸爸
--  发布时间：2011/11/3 16:45:00
--  

用这个解决：

 

http://www.foxtable.com/help/topics/2070.htm