Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/10: Рейтинг темы: голосов - 10, средняя оценка - 5.00
Штурмaн
0 / 0 / 0
Регистрация: 27.04.2009
Сообщений: 265
1

Дополнительные свойства файла

17.06.2012, 10:22. Просмотров 2094. Ответов 2
Метки нет (Все метки)

Необходимо из VBA загнать (а позже вытащить) в свойства внешнего файла(в данном случае картинка) название и комментарий. Ежели из проводника это делать, то в свойствах файла, вкладка Сводка.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.06.2012, 10:22
Ответы с готовыми решениями:

Свойства файла Ворд
Имеется скрипт для определения свойств файла Ворд: Sub FIO() Dim Свойство_номер As Byte On...

Добавить к калькулятору дополнительные свойства
Добавить к калькулятору следующие возможности: Вычисление натурального логарифма числа;

Дополнительные свойства пользовательских элементов
Приветствую всех пользователей. Задача: Добавить свойства пользовательскому элементу...

? про ДОПОЛНИТЕЛЬНЫЕ СВОЙСТВА документа
добрый день, помогите пож-та разобраться с доп.свойствами документа в word'е на вкладке...

Как превратить производителя в дополнительные свойства?
В системе "Управление торговлей" версия 10.3.18.4 для каждого оприходованного товара указан...

2
VladConn
4 / 4 / 3
Регистрация: 17.10.2007
Сообщений: 1,119
19.06.2012, 03:46 2
http://www.microsoft.com/downloads/details.aspx?familyid=9ba6fac6-520b-4a0a-878a-53ec8300c4c2&displaylang=en
0
VladConn
4 / 4 / 3
Регистрация: 17.10.2007
Сообщений: 1,119
19.06.2012, 04:28 3
Штурман,
Поставь ссылки на
Microsoft Sripting Runtime
Microsoft Shell Controls And Automation

И скопируй код:

Private Enum ClnDtl
dtlInfoTip = -1
dtlName = 0
dtlSize = 1
dtlType = 2
dtlModified = 3
dtlAttributes = 4
dtlComment = 5
dtlCreated = 6
dtlAccessed = 7
dtlOwner = 8
dtlUnknown = 9
dtlAuthor = 10
dtlTitle = 11
dtlSubject = 12
dtlCategory = 13
dtlPages = 14
dtlCopyright = 15
dtlCompanyName = 16
dtlModuleDescription = 17
dtlModuleVersion = 18
dtlProductName = 19
dtlProductVersion = 20
dtlSenderName = 21
dtlRecipientName = 22
dtlRecipientNumber = 23
dtlCsid = 24
dtlTsid = 25
dtlTransmissionTime = 26
dtlCallerID = 27
dtlRouting = 28
dtlAudioFormat = 29
dtlAudioSampleRate = 30
dtlAudioSampleSize = 31
dtlChannels = 32
dtlPlayLength = 33
dtlFrameCount = 34
dtlFrameRate = 35
dtlVideoSampleSize = 36
dtlVideoCompression = 37
End Enum

Private Function GetClnDtl(ByVal pstrFileName As String, ByVal pCln As ClnDtl)
Dim objFSO As FileSystemObject
Dim objShell As Shell
Dim objFolder As Folder2
Dim objFolderItem As FolderItem

Set objFSO = New FileSystemObject
Set objShell = New Shell

Set objFolder = objShell.NameSpace(objFSO.GetParentFolderName(pstrFileName))
Set objFolderItem = objFolder.Items.Item(objFSO.GetFileName(pstrFileName))
GetClnDtl = objFolder.GetDetailsOf(objFolderItem, pCln)

End Function

Private Sub Command1_Click()
Dim strFile As String
strFile = "C:My DocumentsMy Pictures2.jpg" 'твой файл
MsgBox "Инфо: " & GetClnDtl(strFile, dtlInfoTip)
End Sub
0
19.06.2012, 04:28
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.06.2012, 04:28

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

В какой таблице БД лежат дополнительные свойства товара?
Скажите, а в какой таблице БД лежать значения дополнительных свойств товара?

Дополнительные свойства не появились в свойствах нового компонента
Всем привет. Пытаюсь осваивать создание новых компонентов. Но что-то не получается сделать как...

Дополнительные свойства к TSpeedButton (добавить вторую иконку)
Возможно ли к стандартному ТSpeedButton добавить еще иконку (так что бы было две)?....вариант брать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.