I have found this piece of code, but it doesn't work. It does get the name correctly, it does open the file, it does read the bytes, but it does NOT return the values for height and width, with several JPEGs that I've tried.
Sub GetJpegDims(ByVal strFileName, ByRef lngHeight, ByRef lngWidth)...