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

Kaval,
DSO works on OLE files:
http://www.microsoft.com/downloads/d...DisplayLang=en

Or EXIF data:
http://groups.google.co.uk/group/mic...d8bdd1d48f41aa

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

"Kaval" wrote in message
...
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

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"





"NickHK" wrote:

Kaval,
DSO works on OLE files:
http://www.microsoft.com/downloads/d...DisplayLang=en

Or EXIF data:
http://groups.google.co.uk/group/mic...d8bdd1d48f41aa

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

"Kaval" wrote in message
...
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

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(i Path))
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

"Kaval" a écrit dans le message de news:
...
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

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

RBS

"Kaval" wrote in message
...
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"





"NickHK" wrote:

Kaval,
DSO works on OLE files:
http://www.microsoft.com/downloads/d...DisplayLang=en

Or EXIF data:
http://groups.google.co.uk/group/mic...d8bdd1d48f41aa

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

"Kaval" wrote in message
...
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

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



"Michel Pierron" wrote:

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(i Path))
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

"Kaval" a écrit dans le message de news:
...
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