FOXPRO DIRECTORY READER prg

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

Advertisement

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Connecting to %s