Oversize Tiff Files Identification 2

[ricardo1023]

I do have hundreeds of thousands of image files that need to be printed. We have more than one printer and we need to identify which files correspond to very large blueprints (paper size is 24 x 30) In Windows explorer there is a column called "Dimensions" that may help with the identification (by dividing the numbers by 3 or something like that). Any idea how to accomplish this programatically?

Thank you

 

[SkipVought]

Hi,

What MS Office application are you using?

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[strongm]

> In Windows explorer there is a column called "Dimensions" that may help
Something I put together a couple of years ago might help:

[blue]Public Function GetPictureDimensions(strPicturePath As Variant, strFilename As Variant) As String
    GetPictureDimensions = CreateObject("Shell.Application").NameSpace(strPicturePath).Items.Item(strFilename).ExtendedProperty("Dimensions")
End Function[/blue]

 

[SkipVought]

strongm,

Is this a VBA thing, that CreateObject("Shell.Application") does create a ShellDispatch4 object, but then the Namespace object CreateObject("Shell.Application").Namespace(strPicturePath) returns a Value of Nothing for the path I supplied, which is the string I copied from my Windows Explorer Address: C:\Documents and Settings\ii36250\My Documents\My Pictures

Using my Watch Window.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[SkipVought]

the CreateObject("Shell.Application") object has only Application and Parent as objects in the Watch Window.

Namespace indicates <Expression not defined in context>

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[strongm]

Which OS, Skip? This should work on XP and later. I've tested it on XP SP1, SP2 and SP3, Vista (original and SP1), and Windows 7 - so right now I can't say why it isn't working for you

 

[SkipVought]

XP 2002 SP2

Do I need a library ref?

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[strongm]

No, no library reference is required.

 

[PHV]

For me, strPicturePath should the fullname of a directory and strFilename the name of an image file in this directory.
Is that the case Skip ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[SkipVought]

Yes, Full Path Name from the Address bar of Windows Explorer.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[PHV]

Well, works for me (WinXP sp3, VBA 6.3)

 

[strongm]

Ok - can we try the following? Is that Pictures folder your My Pictures folder, or are yoiu accessing somebody else's?

If it is your own, try passing &H27 as the strPicturePath parameter and see what happens (Namespace can deal with full pathnames and with the Shell's special folders, which are numerical; in this case &H27 should be the logged in users My Pictures folder)

 

[SkipVought]

Wonderful! That works for My Pictures.

But what about any other path?

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[fumei]

It works for any path.

MsgBox GetPictureDimensions("c:\zzz\", "combo.bmp")

returns the correct values for me.

Handy that. Thanks strongm.

Gerry

 

[SkipVought]

OK. My problem is with calling the function from the sheet.

All is well.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[strongm]

 

[SkipVought]

Thanx!

==> [purple]*[/purple]

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[fumei]

ricardo1023, just to get back to your original request, here is something that may start you out.

Sub BiggerThanThat()
Dim file
Dim path
Dim FirstNum() As String
Dim BigList As String

path = "c:\zzz\"
file = Dir(path & "*.jpg")
Do While file <> ""
   FirstNum() = Split(GetPictureDimensions(path, file))
   If FirstNum(0) > 200 Then
      BigList = BigList & file & " " & FirstNum(0) & vbCrLf
      [COLOR=red]' or do whatever with the file...[/color red]
   End If
   file = Dir()
Loop
MsgBox BigList
End Sub

This produces a list of all .jpg files in a given folder with a width greater than 200. Note that the function GetPictureDimensions results in a string: "width x height"


So using Split, FirstNum(0) = width. You could just as easily factor in the height.

Gerry

 

[ricardo1023]

Excellent! Thank you.

 

[ricardo1023]

Thank you everyone. Any idea on how to get the horizontal and the verticar resolution (for example 300 DPI)