使用这个链接，我可以在vba中编写一个程序来读取扩展文件属性。现在，我想编写一个可以编辑扩展文件属性的程序——特别是属性22，即文件的"主题"。那么，给定一个文件路径，如何编辑与该文件关联的主题呢?
用你现在用的方法是做不到的。你可以安装和使用microsoftactivex dsoffile .dll来获取和设置扩展属性。
Set objFile = CreateObject("DSOFile.OleDocumentProperties")
objFile.Open("C:My PathMyFile.doc")
objFile.SummaryProperties.Subject = "My Subject"
objFile.Save
set objFile = Nothing
这实际上更像是对上面jac的评论。引用的.dll文件不能在64位机器上工作，我觉得现在大多数机器都是64位的。点击这里获取与引用的dsoffile .dll等价的64位开源文件。
'将文件设为只读
SetAttr "c:tempSample.txt", vbReadOnly
'使文件隐藏
SetAttr "c:tempSample.txt", vbHidden
'请注意，如果你改变一个属性，现有的属性将被覆盖。要将文件设置为只读和隐藏，请在
函数中使用这两个属性SetAttr "c:tempSample.txt", vbHidden + vbReadOnly
' Remove all attributes -将只读文件转换为读写文件，取消隐藏文件等
SetAttr "c:tempSample.txt", vbNormal