Привет!
Подскажите, пожалуйста, каким образом получить свойства файла. В частности поля "Автор" и "Коментарии". По логике должно быть где-то в System.IO.File.GetAttributes или System.IO.FileInfo, но нету...

К сожалению, это особые свойства. Формат хранения этих свойств различен для разных типов документов. Если надо читать свойства офисных файлов, то может помочь вот эта статья:

http://support.microsoft.com/default.aspx?scid=KB;EN-US;224351

Если действительно нужны свойства офисных файлов, а в статье не понятно - пишите, разберемся.

Спасибо!
Вот как раз нашел как это сделать:



'Ставим ссылки на
'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 Documents\My Pictures\2.jpg" 'файл
MsgBox "Инфо: " & GetClnDtl(strFile, dtlInfoTip)
End Sub