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
>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 >>