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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → filesys与权限

共有3667人关注过本帖树形打印复制链接主题：filesys与权限

lur320

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

加好友

发短信

等级：五尾狐帖子：1056 积分：9150 威望：0 精华：0 注册：2015/8/12 16:28:00

filesys与权限 发帖心情

Post By：2019/7/4 9:42:00 [显示全部帖子]

在使用filesys的功能浏览文件夹内的文件清单。有些文件夹由于客户端的权限不能访问。此时系统会报错而停止。

有什么功能判断是否有权限读取文件夹？

有权限再继续，没权限就跳过该文件夹？

lur320

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

加好友

发短信

等级：五尾狐帖子：1056 积分：9150 威望：0 精华：0 注册：2015/8/12 16:28:00

Post By：2019/7/4 10:02:00 [显示全部帖子]

除了try，有没有更明确的方法知道是权限不对才跳过的？

lur320

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

加好友

发短信

等级：五尾狐帖子：1056 积分：9150 威望：0 精华：0 注册：2015/8/12 16:28:00

Post By：2019/7/4 10:08:00 [显示全部帖子]

还有一个问题。如何判断文件夹里面还有子文件夹？

lur320

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

加好友

发短信

等级：五尾狐帖子：1056 积分：9150 威望：0 精华：0 注册：2015/8/12 16:28:00

Post By：2019/7/4 10:12:00 [显示全部帖子]

算了，用递归来找。自己写了

lur320

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

加好友

发短信

等级：五尾狐帖子：1056 积分：9150 威望：0 精华：0 注册：2015/8/12 16:28:00

Post By：2019/7/4 10:18:00 [显示全部帖子]

这个好像不行。

---------------------------

版本:2018.9.9.1

---------------------------

代码执行出错，错误信息：

System.UnauthorizedAccessException: Attempted to perform an unauthorized operation.

at System.Security.AccessControl.Win32.GetSecurityInfo(ResourceType resourceType, String name, SafeHandle handle, AccessControlSections accessControlSections, RawSecurityDescriptor& resultSd)

at System.Security.AccessControl.NativeObjectSecurity.CreateInternal(ResourceType resourceType, Boolean isContainer, String name, SafeHandle handle, AccessControlSections includeSections, Boolean createByName, ExceptionFromErrorCode exceptionFromErrorCode, Object exceptionContext)

at System.Security.AccessControl.FileSystemSecurity..ctor(Boolean isContainer, String name, AccessControlSections includeSections, Boolean isDirectory)

at System.Security.AccessControl.DirectorySecurity..ctor(String name, AccessControlSections includeSections)

at UserCode.Test()

---------------------------

lur320

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

加好友

发短信

等级：五尾狐帖子：1056 积分：9150 威望：0 精华：0 注册：2015/8/12 16:28:00

Post By：2019/7/4 10:26:00 [显示全部帖子]

Dim dirPath = "************olete"

Dim dir As New system.io.DirectoryInfo(dirPath)

Dim ds As new System.Security.AccessControl.DirectorySecurity(dirPath , System.Security.AccessControl.AccessControlSections.Access)

Output.show(ds.AreAccessRulesProtected) 'true为有权限控制,false表示没有权限控制,可以读写

lur320

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

加好友

发短信

等级：五尾狐帖子：1056 积分：9150 威望：0 精华：0 注册：2015/8/12 16:28:00

Post By：2019/7/4 10:26:00 [显示全部帖子]

我在命令窗口里面测试的

lur320

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

加好友

发短信

等级：五尾狐帖子：1056 积分：9150 威望：0 精华：0 注册：2015/8/12 16:28:00

Post By：2019/7/4 10:50:00 [显示全部帖子]

你的代码有错误。我改了下。但还是报错。。。

Dim dirPath = "\\cnsuz-file001\GETINGE\DCC\99. Obsolete"

Dim fileAcl = system.io.Directory.GetAccessControl(dirPath)

Dim userAccessRules = fileAcl.GetAccessRules(True, True, Gettype(System.Security.Principal.NTAccount))

If userAccessRules.AccessControlType = System.Security.AccessControl.AccessControlType.Deny Then

Output.Show("没有权限")

End If

Output.Show("有权限")

Dim dirPath = "E:\问题"

Dim fileAcl = system.io.Directory.GetAccessControl(dirPath )

Dim userAccessRules = fileAcl.GetAccessRules(True, True, Gettype(System.Security.Principal.NTAccount))

If ff.AccessControlType = System.Security.AccessControl.AccessControlType.Deny Then

msgbox("没有权限")

Exit For

End If

msgbox("有权限")

[此贴子已经被作者于2019/7/4 10:50:50编辑过]

lur320

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

加好友

发短信

等级：五尾狐帖子：1056 积分：9150 威望：0 精华：0 注册：2015/8/12 16:28:00

Post By：2019/7/4 11:43:00 [显示全部帖子]

Dim dirPath = "E:\问题"

Dim fileAcl = system.io.Directory.GetAccessControl(dirPath )

Dim userAccessRules = fileAcl.GetAccessRules(True, True, Gettype(System.Security.Principal.NTAccount))

If ff.AccessControlType = System.Security.AccessControl.AccessControlType.Deny Then

msgbox("没有权限")

Exit For

End If

msgbox("有权限")

首先报错FF未定义。

单后报错 EXIT FOR这里的错误

下一主题 >> << 上一主题

主题：filesys与权限