File Owner / File Besitzer

1
2
3
4
5
6

    Public Function FileOwner2(ByVal Fi As System.IO.FileInfo) As String
        'File.GetAccessControl(@"C:\test.txt")).GetOwner(typeof(NTAccount))
        Dim ds As Security.AccessControl.FileSecurity = Fi.GetAccessControl
        Dim ir As Security.Principal.IdentityReference = ds.GetOwner(GetType(Security.Principal.NTAccount))
        Return ir.Value.ToString
    End Function