标题：删除目录出错

1楼

明丰发表于：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"并将所有内容移入回收站吗？"时,点击按钮"否"会出错,请问如何设置?

2楼

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

这样?

3楼

狐狸爸爸 发表于：2011/11/3 16:25:00

说不定这个目录不允许删除啊

4楼

明丰发表于：2011/11/3 16:40:00

按"是",可以正常删除目录,如果不想删除目录,按"否"就出错了.

5楼

狐狸爸爸 发表于：2011/11/3 16:45:00

用这个解决：

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

共5 条记录, 每页显示 10 条, 页签: [1]