Now we can enumerate through the list of files, creating
thumbnails of each file. We do this by telling ImageGlue that
we want the image height to be less than or equal to 120
pixels. If the original height of the image is less than 120
pixels, the original size of the image will be used, otherwise the
width will be calculated based on a height of 120 pixels and the
aspect ratio of the original image.
Also note that we could substitute the 'height<=120'
parameter setting with 'width<=120' to limit the width instead
of the height.
For Each theFile In fldr.Files
theFile = theFile.Path
theName = theFile.Name
& theName & ".jpg", "")