检索扩展文件属性 - 公司名称 [英] Retreiving extended file properties - Company Name

问题描述

大家好，

我一直试图记录每个文件的所有者，作者和公司名称我们的网络。我使用下面的代码取得了有限的成功，但它似乎没有从Office文档中获取信息。

I have been tasks with trying to document owner, author, and company name for each file on our network. I have had limited success using the code below but it doesn't seem to be getting the information from Office documents.

Dim arrHeaders(100)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("t:\test\")
For i = 0 to 100
 arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
Next
For Each strFileName in objFolder.Items
 For i = 0 to 100
 Wscript.Echo i & vbtab & arrHeaders(i) _
 & ": " & objFolder.GetDetailsOf(strFileName, i)
 Next
Next

任何人都可以给我一些指示吗？我已经浏览了无数的脚本示例，它们似乎都达不到我要求的范围。

Can anyone give me some pointers? I have trawled through countless scripting examples and they all seem to fall short of what I have been asked to do.

谢谢，

Matt

推荐答案

请参阅此讨论，了解如何获取这些属性。

See this discussion for how to get these properties.

http://social.technet.microsoft.com/Forums/en-US/54dfddd8-20e7-4bfc-a683-0006385effc0/vbscript-error-codes-when-trying-to- access-the-extended-file-properties -

这篇关于检索扩展文件属性 - 公司名称的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！