I wrote this so one could compare the size of two files quickly. im not sure how much faster this works than looking at the sizes manually, but what the heck…
set afile to choose file default location (path to home folder)
set afile2 to choose file default location (path to home folder)
set info1 to info for afile
set info2 to info for afile2
if size of info1 > size of info2 then
display dialog (afile as string) & " is " & ((size of info1 as integer) - (size of info2) as integer) & "bytes bigger than " & return & afile2 as string with icon note
else if size of info1 < size of info2 then
display dialog (afile2 as string) & " is " & return & return & ((size of info2 as integer) - (size of info1) as integer) & " bytes bigger than " & return & return & afile as string with icon note
end if