Прочитать значения свойств файла

[SVL]

Всем привет! В 2000 винде при вызове свойств любого файла появляется окно с вкладкой <Сводка>. На этой вкладке расположены такие свойства, как <Название>, <Автор>, <Ключевые слова>, <Комментарий>. Не подскажете, как получить их из кода программы?

[Rainbow]

Говорят, есть у MS ActiveX'ина, называется DSOfile.exe
Поищи на msdn.microsoft.com

помогает прочитать и записать свойства у офисных файлов точно, а может и еще каких...

[SVL]

На http://clubpro.spb.ru/ubb/Forum3/HTML/000041.html нашел подобный код, но на С. Может, можно его перевести на VB? Декларацию функции нашел:

Код: Выделить всё

Declare Sub StgOpenStorageEx Lib "ole32.dll" _
(ByRef pwcsName As Byte, ByVal grfMode As Long, ByVal stgfmt As Long, _
ByVal grfAttrs As Long, ByRef pStgOptions As STGOPTIONS, reserved As Any, _
ByVal riid As Long, ppObjectOpen As Any )

, а вот с параметрами ее разобраться никак не могу.

[Rainbow]

Ну ты даешь! Я тебе простой вариант предлагаю, а ты хочешь сам такую же штуку написать, как MS?

на msdn, кстати, на Си тоже примерчик есть с использованием этой функции, как ты попросил, а делать она, подозреваю, все то же самое будет.

Так что давай быстро сюда скачивать dsofile.exe
Он даже с примером на VB распаковывается!

[SVL]

Посмотрел я этот activeX. Как и думал, отображает только свойства оффисных документов, на остальные ругается, т.к. позиции не совпадают. Если кто знает, как переписать на VB, подскажите.

[Rainbow]

Ну... тогда тебе надо вот на это посмотреть... Только не спрашивай, как оно работает - не знаю

http://www.mvps.org/emorcillo/vb6/com/r ... ties.shtml
http://www.mvps.org/emorcillo/vb6/tlb/olelib.shtml

[SVL]

RainBow, спасибо большое за ссылку. Это как раз то, что нужно. Открывает свойства любого файла и работает, как раз, через функцию StgOpenStorageEx.