Как я могу изменить расширенные свойства файла с помощью VBA

windows vba vb6

10947 просмотра

3 ответа

Используя эту ссылку, я смог написать программу на vba, которая читает расширенные свойства файла. Теперь я хотел бы создать программу, которая может редактировать расширенные свойства файла - в частности, свойство 22, «предмет» файла. Итак, учитывая путь к файлу, как вы можете редактировать тему, связанную с этим файлом?

Автор: Ben Источник Размещён: 12.11.2019 09:08

Ответы (3)


3 плюса

Это невозможно сделать, используя метод, который вы используете сейчас. Вы можете установить и использовать 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
Автор: jac Размещён: 07.06.2013 08:45

0 плюса

Это действительно больше комментарий к JAC выше. Упомянутый файл .dll не будет работать на 64-битных машинах, и я считаю, что большинство машин сегодня 64-битные. Нажмите здесь, чтобы получить 64-битный эквивалент с открытым исходным кодом для ссылки на dsofile.dll.

Автор: awsmitty Размещён: 12.09.2019 06:13

-2 плюса

Сделать файл доступным только для чтения

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
Автор: Adarsh Madrecha Размещён: 02.03.2016 06:23
Вопросы из категории :
32x32