**errors here Return filesize(cFilename)>0Can you post code of this filesize() fnction as well ?
>Function saveclipasjpg > Lparameters cFilename > Local llReturn, GDIP, img > If Pcount()=0 Or Vartype(cFilename)#'C' > cFilename="ClipImage" > Endif > cFilename=Forceext(cFilename,'jpg') > Erase (cFilename) > If clipIsImage() &&Len(_cliptext)=0 > #include gpimage.h > If Not "GPIMAGE" $ Set("Procedure") > Set Procedure To gpimage Additive > Endif > GDIP = Createobject("gpInit") > img = Createobject("gpImage") > img.FromClipboard() > img.saveAsJpeg(cFilename) >*!* Release gdip >*!* Release img > Endif >Return filesize(cFilename)>0>
>Function clipIsImage > #Define CF_BITMAP 2 > Declare short IsClipboardFormatAvailable In win32api Integer cbformat >Return IsClipboardFormatAvailable(CF_BITMAP)#0