在下面的示例中，visual foxpro 比较可用的磁盘空间与对 customer 表排序所需空间的大小。
***在排序前检查磁盘空间 ***
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