fseek( ) 函数示例

下面的用户自定义函数使用 fseek( ) 函数返回文件的大小。如果不向此用户自定义函数传递参数，则函数返回 2；如果文件没有找到，则此函数返回 1。

function fsize2
parameters gcfilename && 所要检查的文件
private pnhandle,pnsize
if parameters( ) = 0
return -2 && 如果没有传递任何参数，返回 -2
else
if !file(gcfilename)
return -1 && 如果文件不存在，返回 -1
endif
endif
pnhandle = fopen(gcfilename) && 打开文件
pnsize = fseek(pnhandle,0,2) && 确定文件大小，并赋值给 pnsize
=fclose(pnhandle) && 关闭文件
return pnsize && 返回值