windows - vba を使用して拡張ファイル プロパティを変更するにはどうすればよいですか

Question

このリンクを使用して、拡張ファイル プロパティを読み取るプログラムを 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

これは、上記の jac へのコメントです。参照されている .dll ファイルは 64 ビット マシンでは動作しません。現在のほとんどのマシンは 64 ビットだと思います。参照されているdsofile.dllに相当するオープン ソース 64 ビットについては、ここをクリックしてください。

Answer 3

' ファイルを読み取り専用にします

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

' ファイルを非表示にします

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

' 1 つの属性を変更すると、既存の属性が上書きされることに注意してください。ファイルを読み取り専用と非表示の両方にするには、関数で両方の属性を使用します

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

' すべての属性を削除 - 読み取り専用ファイルを読み書き可能ファイルに変換、ファイルを再表示など

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