Help reading image extended info such as Author Width Comments, Etc

**Mike Brind** · Aug 10 '06, 07:25 AM

Re: Help reading image extended info such as Author Width Comments, Etc

tom@tmweber.com wrote:

I'm trying to read in image data using the filesystemobjec t. I am able
to read the comments field for all file types it seems, except the ones
I want, .gif .jpg and .bmp.
>
Is it possible to do this?! If so what might I need to do?
>
Thanks!
>
here is the script im using to loop through each possible sub field:
>
Dim arrHeaders(34)
Set objShell = CreateObject("S hell.Applicatio n")
Set objFolder = objShell.Namesp ace("E:\images" )
For i = 0 to 33
arrHeaders(i) = objFolder.GetDe tailsOf(objFold er.Items, i)
Next
For Each strFileName in objFolder.Items
For i = 0 to 33
Response.Write( i & vbtab & arrHeaders(i) & ": " &
objFolder.GetDe tailsOf(strFile Name, i) & "<br>")
Next
Next

Your script works perfectly for image files as-is when I tried it. Eg,
it returned this for a gif file:

0 Name: bgcolor
1 Size: 1 KB
2 Type: GIF File
3 Date Modified: 17/10/2005 11:51
4 Date Created: 10/08/2006 08:27
5 Date Accessed: 10/08/2006 08:27
6 Attributes: A
7 Status: Online
8 Owner: Administrators
9 Author:
10 Title:
11 Subject:
12 Category:
13 Pages:
14 Comments:
15 Copyright:
16 Artist:
17 Album Title:
18 Year:
19 Track Number:
20 Genre:
21 Duration:
22 Bit Rate:
23 Protected:
24 Camera Model:
25 Date Picture Taken:
26 Dimensions: 25 x 24
27 : 25 pixels
28 : 24 pixels
29 Episode Name:
30 Program Description:
31 :
32 Audio sample size:
33 Audio sample rate:

--
Mike Brind

**tom@tmweber.com** · Aug 10 '06, 02:05 PM

Re: Help reading image extended info such as Author Width Comments, Etc

Mike,

Try right clicking a file, going to properties.. summary tab.. and
entering in something for author, comments, etc. See if that works.

I get that default information as well, just not the
comments/author/etc fields. If yours works, what might be wrong on my
side that would prevent that from happening?

Thanks!

Tom

Mike Brind wrote:

tom@tmweber.com wrote:

I'm trying to read in image data using the filesystemobjec t. I am able
to read the comments field for all file types it seems, except the ones
I want, .gif .jpg and .bmp.

Is it possible to do this?! If so what might I need to do?

Thanks!

here is the script im using to loop through each possible sub field:

Dim arrHeaders(34)
Set objShell = CreateObject("S hell.Applicatio n")
Set objFolder = objShell.Namesp ace("E:\images" )
For i = 0 to 33
arrHeaders(i) = objFolder.GetDe tailsOf(objFold er.Items, i)
Next
For Each strFileName in objFolder.Items
For i = 0 to 33
Response.Write( i & vbtab & arrHeaders(i) & ": " &
objFolder.GetDe tailsOf(strFile Name, i) & "<br>")
Next
Next

>
Your script works perfectly for image files as-is when I tried it. Eg,
it returned this for a gif file:
>
0 Name: bgcolor
1 Size: 1 KB
2 Type: GIF File
3 Date Modified: 17/10/2005 11:51
4 Date Created: 10/08/2006 08:27
5 Date Accessed: 10/08/2006 08:27
6 Attributes: A
7 Status: Online
8 Owner: Administrators
9 Author:
10 Title:
11 Subject:
12 Category:
13 Pages:
14 Comments:
15 Copyright:
16 Artist:
17 Album Title:
18 Year:
19 Track Number:
20 Genre:
21 Duration:
22 Bit Rate:
23 Protected:
24 Camera Model:
25 Date Picture Taken:
26 Dimensions: 25 x 24
27 : 25 pixels
28 : 24 pixels
29 Episode Name:
30 Program Description:
31 :
32 Audio sample size:
33 Audio sample rate:
>
--
Mike Brind

**Mike Brind** · Aug 10 '06, 07:35 PM

Re: Help reading image extended info such as Author Width Comments, Etc

OK.

GIF and BMP formats don't appear to allow editing of the properties you
listed (at least not on my setup - XP Pro, SP2). The edit fields are
greyed out. I can edit the properties for a JPG file, and the code
picks up and displays them all:

9 Author: Test Author
10 Title: Test title
11 Subject: Test Subject
12 Category:
13 Pages: 1
14 Comments: Test comment

Have you access to another machine/OS you can test this on?

--
Mike Brind

tom@tmweber.com wrote:

Mike,
>
Try right clicking a file, going to properties.. summary tab.. and
entering in something for author, comments, etc. See if that works.
>
I get that default information as well, just not the
comments/author/etc fields. If yours works, what might be wrong on my
side that would prevent that from happening?
>
Thanks!
>
Tom
>
Mike Brind wrote:

tom@tmweber.com wrote:

I'm trying to read in image data using the filesystemobjec t. I am able
to read the comments field for all file types it seems, except the ones
I want, .gif .jpg and .bmp.
>
Is it possible to do this?! If so what might I need to do?
>
Thanks!
>
here is the script im using to loop through each possible sub field:
>
Dim arrHeaders(34)
Set objShell = CreateObject("S hell.Applicatio n")
Set objFolder = objShell.Namesp ace("E:\images" )
For i = 0 to 33
arrHeaders(i) = objFolder.GetDe tailsOf(objFold er.Items, i)
Next
For Each strFileName in objFolder.Items
For i = 0 to 33
Response.Write( i & vbtab & arrHeaders(i) & ": " &
objFolder.GetDe tailsOf(strFile Name, i) & "<br>")
Next
Next

Your script works perfectly for image files as-is when I tried it. Eg,
it returned this for a gif file:

0 Name: bgcolor
1 Size: 1 KB
2 Type: GIF File
3 Date Modified: 17/10/2005 11:51
4 Date Created: 10/08/2006 08:27
5 Date Accessed: 10/08/2006 08:27
6 Attributes: A
7 Status: Online
8 Owner: Administrators
9 Author:
10 Title:
11 Subject:
12 Category:
13 Pages:
14 Comments:
15 Copyright:
16 Artist:
17 Album Title:
18 Year:
19 Track Number:
20 Genre:
21 Duration:
22 Bit Rate:
23 Protected:
24 Camera Model:
25 Date Picture Taken:
26 Dimensions: 25 x 24
27 : 25 pixels
28 : 24 pixels
29 Episode Name:
30 Program Description:
31 :
32 Audio sample size:
33 Audio sample rate:

--
Mike Brind