File Properties

[Guest]

I notice that it is possible in windows explorer to attached comments and
other fields to JPEG files.

Is it possible to read those comments using excel VBA? What about writing
them?

I am considering using some of the property fields (eg comments, keywords,
titles, authors etc) to store info on our photos but I would like to be able
to extract into excel and ideally update the fields from excel.

Any help welcome, Kaval

 

[NickHK]

Kaval,
DSO works on OLE files:
http://www.microsoft.com/downloads/...c6-520b-4a0a-878a-53ec8300c4c2&DisplayLang=en

Or EXIF data:
http://groups.google.co.uk/group/mi...6d588be1eb7/2fd8bdd1d48f41aa#2fd8bdd1d48f41aa

And depending which OS you are on (it seems) check the thread in this NG:
Shell Object Not Working Right In XL2000, But No Errors

NickHK

 

[Guest]

I've downloaded & installed the file and I can see the references I need in
the object browser.
Now I just need the VBA code to use it.

For example, if I want to read the SummaryProperties.Comments for the file
"C:\Photo1.jpg"

 

[Michel Pierron]

Hi Kaval,
You can try:

Private Sub FileInfo(iPath$, iFile$)
Dim i As Byte, u As Byte, Item$, Info
With CreateObject("Shell.Application").NameSpace(CStr(iPath))
For i = 0 To 34
Info = .GetDetailsOf(.ParseName(iFile), i)
Item = .GetDetailsOf(.Items, i)
If Len(Info) And Len(Item) Then
u = u + 1
Cells(u, 1) = .GetDetailsOf(.Items, i)
Cells(u, 2) = Info
End If
Next i
End With
End Sub

Sub Test()
Const P$ = "Path of My file name"
Const F$ = "My file name"
Call FileInfo(P, F)
End Sub

Regards,
MP

 

[RB Smissaert]

Have a look here:
http://www.cpearson.com/excel/docprop.htm

RBS

 

[Guest]

Thanks Michael, that works!

If I may, 2 further questions:

1) That code is not returning the Keywords field from the file properties.
Is it possible to get that as well?

2) How can I adapt to write to the file properties from excel?

Many thanks, Kaval