Set oImage=DotNetFactory.CreateInstance("System.Drawing.Image","System.Drawing")
vstPath="C:\Sample Pictures\Water lilies.jpg" 'path of the bitmap to be resized.
Set oBitmap=DotNetFactory.CreateInstance("System.Drawing.Bitmap","System.Drawing",oImage.FromFile(vstPath),30,40)
vStResizedPath="C:\Sample Pictures\Water lilies1.jpg"
oBitmap.Save(vStResizedPath)'Save the resized bitmap.
Set oBitmap=Nothing
Set oImage=Nothing
No comments:
Post a Comment