如何使用VBScript将自定义属性添加到文件

Question

右键单击Windows资源管理器中的文件并单击属性，然后单击“自定义”选项卡时，会出现一个属性列表。我想使用VBScript文件添加其中一个自定义属性。属性的名称必须是Version，值必须是版本号，例如1.0.0.0。文件类型是msi。

Answer 1

要读取和编写自定义文件属性，您需要使用dsofile.dll库提供的DSOFile.OleDocumentProperties COM对象。

以下是完成任务的示例代码：

Set oFile = CreateObject("DSOFile.OleDocumentProperties")
oFile.Open("E:\Setup.msi")

oFile.CustomProperties.Add "Version", "1.0.0.0"
oFile.Save
oFile.Close

在运行此代码之前，请确保您已在系统中注册了dsofile.dll：

regsvr32 dsofile.dll

有关在this TechNet article中使用dsofile.dll的详细信息。