image dimensions attribute

[Fendal]

Hi, All

I'm trying to move images from one main folder into three different folders depending on the image dimentions.

i.e

If dimen = 1280 x 1024 Then
   fs.MoveFile "C:\Wallpapers\" & f2.Name, "C:\Wallerpaper\1280x1024\" & f2.Name
Else If dimen = 1024 x 768 Then
   fs.MoveFile "C:\Wallpapers\" & f2.Name, "C:\Wallerpaper\1024x764\" & f2.Name
Else If dimen = 800 x 600 Then
   fs.MoveFile "C:\Wallpapers\" & f2.Name, "C:\Wallerpaper\800x600\" & f2.Name
End If

I'm looping through the image files with FSO, but, i'm not sure how to get the image dimensions attribute using VB6.

Any Help/Links/Code would be great

Thanks.