Obtaining JPEG Dimensions (Height/Width) with a Macro

[jpg_randall]

Hi all,

I have a macro, part of which lists all the files (all JPEGs) in a particular folder.

I need to obtain the width/height of these pictures in pixels.

My understanding is I can't do this with FileSystemObject, is there another way?

Any suggestions gratefully received.

Jerry

 

[Comfy]

Sub Dimensions()
Dim sFile As Variant
Dim oShell: Set oShell = CreateObject("Shell.Application")
Dim oDir:   Set oDir = oShell.Namespace("H:\Pics")
Dim i As Long


i = 1
For Each sFile In oDir.Items
    Cells(i, 1).Value = oDir.GetDetailsOf(sFile, 0)
    Cells(i, 2).Value = oDir.GetDetailsOf(sFile, 26)
i = i + 1
Next
MsgBox "Done"
End Sub

 

[jpg_randall]

Thanks Comfy! Worked a dream.

I had to change the lookup ID from 26 to 31 to account for the fact I'm on Windows 7.

For anyone else, a full list of details on different OS are here:

GetExtFileProperties() - Get Extended File Properties / Attributes of Files - KiXtart.org - official site

Jerry