For Each fi In aDir.GetFiles()
Try
Dim Owner As NTAccount = CType(fi.GetAccessControl.GetOwner(GetType(NTAccount)), NTAccount)
Catch
Dim Sid as SecurityIdentifier = Ctype(fi.GetAccessControl.GetOwner(GetType(SecurityIdentifier )), SecurityIdentifier )
End Try
|