Force Compress On Save

Hi Guyz, Is there a way to force "compress on save" using maxscript.
I created a button and if I want to press then it will compress the opened file
and save it as compressed without going to the option manually.
Below is my script that I want to try..Thanks in advance..

-----------------------------------------------------------
Rollout test ""
(
Button test "c o m p r e s s"
on test pressed do
(
CompressOnSave "CheckedBox = true"
saveMaxFile "Compressed.max"
)
)
createDialog test
-----------------------------------------------------------