以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何判断一个文件目录是否可以访问?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118497)

--  作者:y2287958
--  发布时间:2018/5/4 10:43:00
--  如何判断一个文件目录是否可以访问?
背景:我对所有盘遍历生成文件名时出现该提示,如何判断不可访问的存在(便于判断排除)?

用于Hidden,显然是不合适的
Dim ifo As new FileInfo(dir)
ifo.Hidden = False 
[此贴子已经被作者于2018/5/4 10:44:45编辑过]

--  作者:有点甜
--  发布时间:2018/5/4 11:01:00
--  
For Each f As String In FileSys.GetDirectories("d:\\")
    Dim s As new System.Security.AccessControl.DirectorySecurity(f, System.Security.AccessControl.AccessControlSections.Access)
    output.show(s.AreAccessRulesProtected & " " & f)
Next