在vb中查找文件创建者？

Question

有没有办法使用vb8获取文件的创建者？似乎找不到任何可行的东西。我需要在数百个文件的目录中找到每个文件的创建者。

Answer 1

您可以尝试这样的方法来获取文件所有者

Dim fs As FileSecurity = File.GetAccessControl("someFileName.ext")
Dim sid As IdentityReference = fs.GetOwner(GetType(SecurityIdentifier))
Dim ntaccount As IdentityReference = sid.Translate(GetType(NTAccount))
Dim owner As String = ntaccount.ToString()

Answer 2

有点晚了，但应该帮助其他人寻找这些信息。

使用WindowsAPICodePack Shell个包可以轻松获取文件创建者/最后修改的信息。

Dim sf As Microsoft.WindowsAPICodePack.Shell.ShellFile

Dim authors As String = sf.Properties.GetProperty("System.Author").FormatForDisplay(PropertySystem.PropertyDescriptionFormatOptions.None)

Dim lastModifiedBy As String = sf.Properties.GetProperty("System.Document.LastAuthor").FormatForDisplay(PropertySystem.PropertyDescriptionFormatOptions.None)

有关Windows Property System的更多信息，请访问here。