Как добавить пользовательское свойство в файл с помощью VBScript

Question

Если щелкнуть правой кнопкой мыши файл в проводнике Windows, выбрать свойства, а затем перейти на вкладку «Пользовательские», появится список свойств.Я хочу добавить одно из этих пользовательских свойств, используя файл VBScript.Имя свойства должно быть версией, а значение должно быть номером версии, например 1.0.0.0.Тип файла - msi.

Answer 1

Для чтения и записи пользовательских свойств файла необходимо использовать COM-объект DSOFile.OleDocumentProperties, предоставленный библиотекой dsofile.dll .

Вот пример кода для выполнения вашей задачи:

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

Дополнительная информация об использовании dsofile.dll в этой статье TechNet .