DERNIER UTILISATEUR D'UN FICHIER

Private Function get_user(ByVal fich As String) As String
'Charger le fichier
        Dim fileInfo As New System.IO.FileInfo(fich)

        Dim fileSecurity As System.Security.AccessControl.FileSecurity = _
        fileInfo.GetAccessControl
        Dim ert As New System.Security.Principal.NTAccount("test")


        Dim identityReference As System.Security.Principal.IdentityReference = _
        fileSecurity.GetOwner(ert.GetType)
        Return identityReference.Value
    End Function