For Each foundFile As String In Filesys.GetFiles("d:", FileIO.SearchOption.SearchAllSubDirectories)
Dim dirPath = FileSys.GetParentPath(foundFile)
Dim fileAcl = system.io.Directory.GetAccessControl(dirPath)
Dim userAccessRules = fileAcl.GetAccessRules(True, True, GetType(System.Security.Principal.NTAccount))
Dim a As Boolean
For Each ff As Object In userAccessRules
If ff.AccessControlType = System.Security.AccessControl.AccessControlType.Deny Then
a = True
Exit For
End If
Next
If a Then
Continue For
End If
后续其它处理
Next
加好友 
发短信
Post By：2023/3/11 9:27:00 [显示全部帖子]
