If FileSizeKB('yourfile.extension')<500
  Messagebox('File is smaller than 500KB')
Else
  Messagebox('File is 500KB or bigger')
Endif

Function FileSizeInKB
lParameter cFilename
Local lcCompatible, lnReturn
lcCompatible=Set('compatible')
Set Compatible on
lnReturn=Fsize('U:\questpdm\picture\whatever.jpg')
Set Compatible &lcCompatible
Return lnreturn/1024

>Hi Tore
>
>I have ran my program and it returns nothing. Obviously I am new to this!
>
>

>Function FileSizeInKB
>lParameter cFilename
>Local lcCompatible, lnReturn
>lcCompatible=Set('compatible')
>Set Compatible on
>lnReturn=Fsize('U:\questpdm\picture\whatever.jpg')
>Set Compatible &lcCompatible
>Return lnreturn/1024
>

>
>How do I check the value in a an IF condition to see if it is greater than or less than 500KB
>
>Thanks Tore