{"id":55543,"date":"2008-05-17T01:43:00","date_gmt":"2008-05-17T01:43:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2008\/05\/17\/hey-scripting-guy-how-can-i-search-a-folder-for-all-the-image-files-that-are-not-a-specified-height-and-width\/"},"modified":"2008-05-17T01:43:00","modified_gmt":"2008-05-17T01:43:00","slug":"hey-scripting-guy-how-can-i-search-a-folder-for-all-the-image-files-that-are-not-a-specified-height-and-width","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/hey-scripting-guy-how-can-i-search-a-folder-for-all-the-image-files-that-are-not-a-specified-height-and-width\/","title":{"rendered":"Hey, Scripting Guy! How Can I Search a Folder For All the Image Files That Are Not a Specified Height and Width?"},"content":{"rendered":"

\"Hey, <\/p>\n

Hey, Scripting Guy! I have a folder on a server that contains employee photos, photos that will be used on our organization chart. New photos are taken daily for new staff members, and all the .JPG files are put into this folder. Because the photos are often different sizes, I would like to write a script that checks the folder for photos that are not the specified size, then runs a third-party application to resize the images. How can I search this folder for image files that are not 100 pixels by 121 pixels?
— BJ<\/p>\n

\"Spacer\"\"Hey,\"Script<\/a> <\/p>\n

Hey, BJ. You know, this is very pivotal day for the Scripting Guy who writes this column. His car is just about out of gas, which means he has to do one of two things: 1) drive the car until it runs out of gas, and then abandon it in the middle of the road; or, 2) fill it up with gas.<\/p>\n

Back in the good old days that wouldn\u2019t have been much of a decision: if his car was out of gas then he\u2019d just buy more gas. In our new and improved modern era, however, this is a much tougher choice; after all, it might very well be cheaper to just buy a new car than to have to fill the old one up with gas.<\/p>\n

Admittedly, the price of gas has been a \u2026 bit \u2026 high for quite some time now. However, in just the past few days that price has crossed a line that never should have been crossed: in the Redmond area it now costs more than $4 to buy a single gallon of premium unleaded. Just a couple weeks ago the Scripting Guy who writes this column said, \u201cThere\u2019s no way I\u2019ll ever pay $4 a gallon for gas. No way.\u201d Well, now it\u2019s time for him to put those principles to the test.<\/p>\n\n<\/thead>\n\n\n
\n

Note<\/b>. Wasn\u2019t it just a year or so ago that the Scripting Guy who writes this column said, \u201cThere\u2019s no way I\u2019ll ever pay $2 a gallon for gas. No way.\u201d? Well, to tell you the truth, we don\u2019t remember. Still, that was<\/i> a rash and foolhardy remark. Which, all things considered, does<\/i> sound like the sort of thing he\u2019d say, doesn\u2019t it?<\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

<\/div>\n

Truth be told, the Scripting Guy who writes this column will probably cave in and buy the gas; he really doesn\u2019t have much choice. (If you\u2019ve ever tried taking the bus from his house in Kirkland to Microsoft \u2013 a 9-mile trip that by bus takes well over an hour to complete \u2013 you\u2019d know why<\/i> he really doesn\u2019t have much choice.) However, he is<\/i> toying with the idea of buying the cheaper, medium-grade gas. Granted, that\u2019s not recommended for his car (although it won\u2019t hurt anything), but the \u201cplus\u201d grade does<\/i> sell for less than $4 a gallon.<\/p>\n

Oops. Never mind; turns out that the medium-grade of gas has also skyrocketed past the $4-a-gallon barrier. So much for Plan B.<\/p>\n

You know, now that you mention it, the Scripting Guy who writes this column probably should<\/i> stop buying all those expensive Italian sports cars that require the highest-grade gas. But hey, he does<\/i> have a reputation to maintain.<\/p>\n

Well, OK. He actually does<\/i> have a reputation, but it isn\u2019t one he\u2019s particularly interested in maintaining.<\/p>\n\n<\/thead>\n\n\n
\n

Note<\/b>. In case you\u2019re wondering, the Scripting Guy who writes this column doesn\u2019t begrudge the oil companies for continuing to raise the price of gas on an hourly basis, even while they report record profits each and every quarter. After all, the people who run the oil companies probably own a lot<\/i> of cars; can you imagine how much they<\/i> must spend on gas each month?<\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

<\/div>\n

What this all means, of course, is that the Scripting Guy who writes this column can\u2019t afford to get fired right now, which means he should really stop complaining and start working. Although, now that he thinks about, not having to drive in to work every day would<\/i> save an awful lot of money \u2026.<\/p>\n

You know what? While the Scripting Guy who writes this column ponders this dilemma, why don\u2019t the rest of you take a moment to look over the following script, a script that reports back all the image files in a folder that haven\u2019t been sized to 100 pixels wide by 121 pixels high:<\/p>\n

Set objShell = CreateObject (\"Shell.Application\")\nSet objFolder = objShell.Namespace (\"C:\\Images\")\n\nFor Each strFileName in objFolder.Items\n    intHorizontalSize = objFolder.GetDetailsOf(strFileName, 27) \n    intHorizontalSize = Replace(intHorizontalSize, \" pixels\", \"\")\n\n    intVerticalSize = objFolder.GetDetailsOf(strFileName, 28) \n    intVerticalSize = Replace(intVerticalSize, \" pixels\", \"\")\n\n    If intHorizontalSize <> 100 OR intVerticalSize <> 121 Then\n        Wscript.Echo strFileName.Path\n    End If\nNext\n<\/pre>\n
OK, let\u2019s see what we have here. This script kicks off by creating an instance of the Shell.Application<\/b> object, an object that lets us get at file properties (such as the vertical and horizontal size of an image file) that WMI and the FileSystemObject can\u2019t<\/i> get to. (The one drawback to the Shell.Application object: it\u2019s designed for use on the local computer only.) After we create an instance of the Shell object we use the oddly-named Namespace<\/b> method to bind to the folder C:\\Images, the folder where we\u2019ve stashed all our employee pictures:<\/p>\n
Set objFolder = objShell.Namespace (\"C:\\Images\")\n<\/pre>\n
Once we\u2019re connected to the Images folder we can retrieve a collection of all the files in that folder simply by referencing the folder\u2019s Items<\/b> property. That also means we can use the following line of code to set up a For Each loop that enables us to loop through each and every file in that collection:<\/p>\n
For Each strFileName in objFolder.Items\n<\/pre>\n
As it turns out, the Shell object (or, more correctly, the Folder<\/b> object, the object we create when we call the Namespace method) includes a method named GetDetailsOf<\/b>; as the name implies, this method can be used to retrieve detailed information (i.e., property values) for a given file. To use the GetDetailsOf method you need to pass it a file name and one of the following integer values, depending on the property you\u2019re interested in:<\/p>\n\n<\/thead>\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
\n
Integer Value<\/b><\/p>\n<\/td>\n
\n
Property<\/b><\/p>\n<\/td>\n<\/tr>\n
\n
0<\/p>\n<\/td>\n
\n
Name<\/p>\n<\/td>\n<\/tr>\n
\n
1<\/p>\n<\/td>\n
\n
Size<\/p>\n<\/td>\n<\/tr>\n
\n
2<\/p>\n<\/td>\n
\n
Type<\/p>\n<\/td>\n<\/tr>\n
\n
3<\/p>\n<\/td>\n
\n
Date Modified<\/p>\n<\/td>\n<\/tr>\n
\n
4<\/p>\n<\/td>\n
\n
Date Created<\/p>\n<\/td>\n<\/tr>\n
\n
5<\/p>\n<\/td>\n
\n
Date Accessed<\/p>\n<\/td>\n<\/tr>\n
\n
6<\/p>\n<\/td>\n
\n
Attributes<\/p>\n<\/td>\n<\/tr>\n
\n
7<\/p>\n<\/td>\n
\n
Status<\/p>\n<\/td>\n<\/tr>\n
\n
8<\/p>\n<\/td>\n
\n
Owner<\/p>\n<\/td>\n<\/tr>\n
\n
10<\/p>\n<\/td>\n
\n
Title<\/p>\n<\/td>\n<\/tr>\n
\n
11<\/p>\n<\/td>\n
\n
Subject<\/p>\n<\/td>\n<\/tr>\n
\n
12<\/p>\n<\/td>\n
\n
Category<\/p>\n<\/td>\n<\/tr>\n
\n
13<\/p>\n<\/td>\n
\n
Pages<\/p>\n<\/td>\n<\/tr>\n
\n
14<\/p>\n<\/td>\n
\n
Comment<\/p>\n<\/td>\n<\/tr>\n
\n
15<\/p>\n<\/td>\n
\n
Copyright<\/p>\n<\/td>\n<\/tr>\n
\n
16<\/p>\n<\/td>\n
\n
Artist<\/p>\n<\/td>\n<\/tr>\n
\n
17<\/p>\n<\/td>\n
\n
Album Title<\/p>\n<\/td>\n<\/tr>\n
\n
18<\/p>\n<\/td>\n
\n
Year<\/p>\n<\/td>\n<\/tr>\n
\n
19<\/p>\n<\/td>\n
\n
Track Number<\/p>\n<\/td>\n<\/tr>\n
\n
20<\/p>\n<\/td>\n
\n
Genre<\/p>\n<\/td>\n<\/tr>\n
\n
21<\/p>\n<\/td>\n
\n
Duration<\/p>\n<\/td>\n<\/tr>\n
\n
22<\/p>\n<\/td>\n
\n
Bit Rate<\/p>\n<\/td>\n<\/tr>\n
\n
23<\/p>\n<\/td>\n
\n
Protected<\/p>\n<\/td>\n<\/tr>\n
\n
24<\/p>\n<\/td>\n
\n
Camera Model<\/p>\n<\/td>\n<\/tr>\n
\n
25<\/p>\n<\/td>\n
\n
Date Picture Taken<\/p>\n<\/td>\n<\/tr>\n
\n
26<\/p>\n<\/td>\n
\n
Dimensions<\/p>\n<\/td>\n<\/tr>\n
\n
27<\/p>\n<\/td>\n
\n
Horizontal Image Size<\/p>\n<\/td>\n<\/tr>\n
\n
28<\/p>\n<\/td>\n
\n
Vertical Image Size<\/p>\n<\/td>\n<\/tr>\n
\n
29<\/p>\n<\/td>\n
\n
Episode Name<\/p>\n<\/td>\n<\/tr>\n
\n
30<\/p>\n<\/td>\n
\n
Program Description<\/p>\n<\/td>\n<\/tr>\n
\n
32<\/p>\n<\/td>\n
\n
Audio Sample Size<\/p>\n<\/td>\n<\/tr>\n
\n
33<\/p>\n<\/td>\n
\n
Audio Sample Rate<\/p>\n<\/td>\n<\/tr>\n
\n
34<\/p>\n<\/td>\n
\n
Channels<\/p>\n<\/td>\n<\/tr>\n
\n
35<\/p>\n<\/td>\n
\n
Company<\/p>\n<\/td>\n<\/tr>\n
\n
36<\/p>\n<\/td>\n
\n
Description<\/p>\n<\/td>\n<\/tr>\n
\n
37<\/p>\n<\/td>\n
\n
File Version<\/p>\n<\/td>\n<\/tr>\n
\n
38<\/p>\n<\/td>\n
\n
Product Name<\/p>\n<\/td>\n<\/tr>\n
\n
39<\/p>\n<\/td>\n
\n
Product Version<\/p>\n<\/td>\n<\/tr>\n
\n
40<\/p>\n<\/td>\n
\n
Keywords<\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
<\/div>\n
If you look closely, you\u2019ll see two properties (and integer values) that are of particular interest to us:<\/p>\n\n<\/thead>\n\n\n\n
\n
27<\/p>\n<\/td>\n
\n
Horizontal Image Size<\/p>\n<\/td>\n<\/tr>\n
\n
28<\/p>\n<\/td>\n
\n
Vertical Image Size<\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
<\/div>\n
Are we going to be able to use these two properties to solve BJ\u2019s problem? We\u2019re about to find out.<\/p>\n
Inside the loop, the first thing we do is use this line of code to retrieve the horizontal image size (integer value 27) and store that information in a variable named intHorizontalSize:<\/p>\n
intHorizontalSize = objFolder.GetDetailsOf(strFileName, 27)\n<\/pre>\n
That\u2019s the good news. The bad news (although the news isn\u2019t all that<\/i> bad) is that we don\u2019t get back a number; instead, we get back a string value similar to this:<\/p>\n
132 pixels\n<\/pre>\n
Like we said, that\u2019s bad news, but not that<\/i> bad; after all, we can extract the image size (i.e., the value 132) by using this line of code:<\/p>\n
intHorizontalSize = Replace(intHorizontalSize, \" pixels\", \"\")\n<\/pre>\n
What are we doing here? To tell you the truth, not all that much: we\u2019re simply using VBScript\u2019s Replace<\/b> function to remove the string value pixels<\/i> (including the blank space that comes before the word) from intHorizontalSize. And what will that do for us? Why, that will set the value of intHorizontalSize to this:<\/p>\n
132\n<\/pre>\n
Which is more like it.<\/p>\n
After determining the horizontal size of the image we then use these two lines of code (and a very similar process) to determine the vertical size of the image:<\/p>\n
intVerticalSize = objFolder.GetDetailsOf(strFileName, 28) \nintVerticalSize = Replace(intVerticalSize, \" pixels\", \"\")\n<\/pre>\n
All we have to do now is determine whether the picture has a horizontal size of 100 pixels and a vertical size of 121 pixels. That\u2019s something we can check using this line of code:<\/p>\n
If intHorizontalSize <> 100 OR intVerticalSize <> 121 Then\n<\/pre>\n
If the horizontal size is not equal to 100 or the vertical size is not equal to 121 we then echo back the file Path<\/b> (in your case, BJ, you\u2019d probably send this information to your third-party application in order to resize the picture):<\/p>\n
Wscript.Echo strFileName.Path\n<\/pre>\n
And what if the horizontal size is<\/i> equal to 100 and the vertical size is<\/i> equal to 121? That\u2019s great; that means this picture is already correctly sized, and we don\u2019t have to do anything at all. Either way, we then go back to the top of the loop and repeat the process with the next file in the collection.<\/p>\n
By the time we\u2019re done we should see an onscreen report listing the image files that are not correctly size:<\/p>\n
C:\\Images\\JonathanHaas.jpg\nC:\\Images\\KenMyer.jpg\nC:\\Images\\PilarAckerman.jpg\n<\/pre>\n
Which is pretty much the report we were hoping to get.<\/p>\n
At any rate, it\u2019s now time to head off to the gas station. And yes, that means that the Scripting Guy who writes this column has decided to bite the bullet and refill the gas tank. Why? Let\u2019s put it this way: if it was a question of getting to<\/i> work things might be different. But seeing as how he needs the gas to get away from<\/i> work, well \u2026.<\/p>\n
See you all Monday.<\/p>\n\n<\/thead>\n\n\n
\n
Note<\/b>. Well, depending on how much the price of gas goes up over the weekend. Maybe he should just have his direct deposit switched from the bank to his local Shell station \u2026.<\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
<\/div>\n
P.S. Yes, that\u2019s right, we need to add a postscript to this article. Why? Because after we got all done with it, we discovered that this doesn\u2019t work on Windows Vista. Apparently that table we showed you with all the values in it no longer applies. But the good news is that Windows Vista has all new<\/i> values. Here\u2019s a script, using the new values, that will answer BJ\u2019s question on computers running Windows Vista: <\/p>\n
On Error Resume Next\n\nSet objShell = CreateObject (\"Shell.Application\")\nSet objFolder = objShell.Namespace (\"C:\\Test\")\n\nFor Each strFileName in objFolder.Items\n    intSize = objFolder.GetDetailsOf (strFileName, 31) \n    arrSize = Split(intSize, \" x \")\n\n    intLength = Len(arrSize(0))\n    intHorizontalSize = Right(arrSize(0), intLength -1)\n\n    intLength = Len(arrSize(1))\n    intVerticalSize = Left(arrSize(1), intLength - 1)\n\n    If intHorizontalSize <> 100 OR intVerticalSize <> 121 Then\n        Wscript.Echo strFileName.Path\n    End If\nNext\n<\/pre>\n
As it turns out, the GetDetailsOf method works just fine on Windows Vista; in some ways, it actually works better<\/i>, because a lot more file properties are now exposed to the method. (We\u2019ll post a complete list of these properties in the Script Center next week; stay tuned.) However, many of the property values have been renumbered; on Windows Vista retrieving items 27 and 28 won\u2019t do you much good.<\/p>\n
Instead, we ended up retrieving item 31, which gave us the total dimensions of the picture, using an output format similar to this:<\/p>\n
?150 x 354?\n<\/pre>\n
In case you\u2019re wondering, the question marks aren\u2019t really questions marks; instead, they appear to be some sort on non-printable character. That\u2019s why we ended up going through all sorts of gyrations: splitting the value into an array, then using the Right<\/b> function to grab all but the first character from the first array item and the Left<\/b> function to grab everything except the last<\/i> character in the second array item. It\u2019s a bit crazy but, in the end, we came up with a script that works on Vista.<\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! I have a folder on a server that contains employee photos, photos that will be used on our organization chart. New photos are taken daily for new staff members, and all the .JPG files are put into this folder. Because the photos are often different sizes, I would like to write a […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[122,123,3,5],"class_list":["post-55543","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-graphics","tag-multimedia","tag-scripting-guy","tag-vbscript"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! I have a folder on a server that contains employee photos, photos that will be used on our organization chart. New photos are taken daily for new staff members, and all the .JPG files are put into this folder. Because the photos are often different sizes, I would like to write a […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/55543","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=55543"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/55543\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=55543"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=55543"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=55543"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}