Code: Select all
Set ctrl = server.createobject("GflAx.GflAx")
File = pathgo & "\" & nombreOriginal
const AX_JPEG = 1
const AX_PNG = 3
With ctrl
.UseTransparency = True
.LoadBitmap File
.resize 15, 10
.Saveformat = AX_PNG
.SavePNGCompression = 7
.SaveBitmap pathgo & "\" & nombre
end with
set ctrl=nothing