FOXPRO DIRECTORY READER prg

CLOSE DATABASES
SET DEFAULT TO (‘D:\’)

gnDbcnumber = ADIR(gaDatabase, ‘*.PDF’) && Create array

CLEAR
FOR nCount = 1 TO gnDbcnumber && Loop for number of databases
? gaDatabase(nCount,1) && Display database names
ENDFOR