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

使用这个链接,我可以用vba编写一个读取扩展文件属性的程序。 现在,我想创build一个可以编辑扩展文件属性的程序 – 特别是属性22,文件的“主题”。 所以,给定一个文件path,你怎么能编辑与该文件关联的主题?

Solutions Collecting From Web of "如何使用vba更改扩展文件属性"

它不能用你现在使用的方法来完成。 您可以安装并使用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 

'使文件只读

 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