loImg=LoadPicture(lcFajl) lnWidth=Round(loImg.Width/26.458,0) lnHeight=Round(loImg.Height/26.458,0)The first line is the slow part. I seem to remember these attributes can be extracted, given the filename, by some feature of scripting.filesystemobject that I can't find now.