在下面的示例中，visual foxpro 将 customer 表排序所需要的空间与可用的磁盘空间进行比较。
***在 sort 命令之前检查磁盘空间 ***
close databases
open database (home( ) + 'samples\data\testdata')
use customer &&打开 customer 表
*** 获得表头大小 ***
gntablehead = header( )
*** 计算表的大小 ***
gnfilesize = gntablehead + (recsize( ) * reccount( ) + 1)
if diskspace( ) > (gnfilesize * 3)
wait window 'sufficient diskspace to sort.'
else
wait window 'insufficient diskspace. sort cannot be done.'
endif