下面的示例使用 adir( ) 函数创建一个包含数据库信息的数组，然后显示这些数据库名。
close databases
set path to (home( ) + 'samples\data')
gndbcnumber = adir(gadatabase, '*.dbc') && 创建数组
clear
for ncount = 1 to gndbcnumber && 依据数据库的个数循环
? gadatabase(ncount,1) && 显示数据库名
endfor
set path to home( ) && 设置路径至 visual foxpro 目录