删除目录出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 删除目录出错

共有9794人关注过本帖树形打印复制链接主题：删除目录出错

明丰

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：558 积分：4352 威望：0 精华：2 注册：2011/4/18 8:27:00

删除目录出错 发帖心情

Post By：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

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：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

这样?