windows - How can I change extended file properties using vba

Question

Using this link I was able to write a program in vba that reads extended file properties. Now, I'd like to make a program that can edit extended file properties - specifically property 22, the "subject" of a file. So, given a file path, how could you edit the subject associated with that file?

Answer 1

用你现在用的方法是做不到的。您可以安装和使用 Microsoft ActiveX dsofile.dll来获取和设置使用 VBScript 的扩展属性。

Set objFile = CreateObject("DSOFile.OleDocumentProperties")
objFile.Open("C:\My Path\MyFile.doc")
objFile.SummaryProperties.Subject = "My Subject"
objFile.Save
set objFile = Nothing

Answer 2

这实际上更像是对上面 jac 的评论。引用的 .dll 文件在 64 位机器上不起作用，我觉得今天大多数机器都是 64 位的。单击此处获取与引用的 dsofile.dll 等效的开源 64 位。

Answer 3

' 将文件设为只读

SetAttr "c:\temp\Sample.txt", vbReadOnly

' 隐藏文件

SetAttr "c:\temp\Sample.txt", vbHidden

' 请注意，如果您更改一个属性，现有的属性将被覆盖。要将文件设为只读和隐藏，请在函数中使用这两个属性

SetAttr "c:\temp\Sample.txt", vbHidden + vbReadOnly

' 删除所有属性 - 将只读文件转换为读写文件，取消隐藏文件等

SetAttr "c:\temp\Sample.txt", vbNormal