如何使用vba更改扩展文件属性

Question

使用this link我能够在vba中编写一个读取扩展文件属性的程序。现在，我想创建一个可以编辑扩展文件属性的程序 - 特别是属性22，文件的“主题”。那么，给定文件路径，您如何编辑与该文件关联的主题？

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

这实际上是对上述江淮汽车的更多评论。引用的.dll文件在64位计算机上不起作用，我认为当今大多数计算机都是64位。单击Here获得与所引用的dsofile.dll等效的64位开源代码。

Answer 3

＆＃39;将文件设为只读

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

＆＃39;使文件隐藏

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

＆＃39;请注意，如果更改一个属性，则会覆盖现有属性。要使文件同时为readonly和hidden，请使用函数

中的两个属性

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

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

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