Thanks Borislav

I have used the following function but I keep getting the Messagebox stating It is not OK when my file is only 79KB. Any ides?

loFSO = Createobject("Scripting.FileSystemObject")
filepath = 'U:\questpdm\picture\whatever.jpg'
loFile = loFSO.Getfile(filePath)

IF transform(loFile.Size)<='500000'
	MESSAGEBOX("File Size is OK")
	ELSE
	MESSAGEBOX("File Size is not OK")
ENDIF

I should be getting the message "File Size is OK"