** contoh pemakaian ADIR()
** asumsi d:\coba sudah ada :)
CREATE CURSOR jablai (namafile c(254))

SET DEFAULT TO d:\coba
fileke = ADIR(gaFile, '*.dbf')
CLEAR
FOR nCount = 1 TO fileke  
   	** ? gaFile(nCount,1)  
	INSERT INTO jablai(namafile) VALUES (gaFile(nCount,1))
ENDFOR

SELECT jablai
BROWSE