1.此为递归目录函数代码
Dim path As String = args(0) '目录路径
Dim ls As List(Of String) = args(1) 'ls 为目录集合
For Each ml As String In FileSys.GetDirectories(path)
ls.add(ml)
Next
For Each p As String In FileSys.GetDirectories(path)
Functions.Execute("递归目录", p, ls)
Next
2.调用此函数
dim p as string = "D:\"
dim ls as new list(of string)
Functions.Execute("递归目录", p, ls)
3.出现报错
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.6.12.1
错误所在事件：自定义函数,递归目录
详细错误信息：
调用的目标发生了异常。
对路径“D:\$RECYCLE.BIN\S-1-5-18”的访问被拒绝。
分析是权限问题，如何让FileSys.GetDirectories只访问能访问的文件夹，不去访问被所绝的文件夹。或者是所有的文件夹都能访问。
请帮助修改！
加好友 
发短信
Post By：2024/4/17 16:20:00 [只看该作者]
