Set obj = CreateObject("ZICONVINP.EasyThumbnail")
obj.ConvertEndMode = 0
obj.cxImage = 400
obj.cyImage = 600
obj.ImageZoom = 2
obj.TargetFolder = "c:\temp\img"
obj.TargetFolderMode = 0
obj.TargetFileMode = 1
obj.SourceFileMode = 2
obj.SourceImageTypes = Array("bitmap")
obj.TargetImageType = "jpeg"
if obj.ConvertFiles( "c:\temp\test.bmp" ) then
' "OK"
else
' "ERR"
end if
|