** contoh pemakaian ADIR()
** perhatikan 'ON ERROR' :)
a=0
ON ERROR a=1	&& jika terjadi error program tetap jalan, a=1
CREATE CURSOR jablai (namafile c(254))

SET DEFAULT TO d:\tetex

IF a=0
	=ADIR(gaFile, '*.*')

	SELECT jablai 
	APPEND FROM ARRAY gaFile
	BROWSE
ELSE
	WAIT WINDOW 'Path tdk ditemukan' NOWAIT 
ENDIF