* This harvests the max number of files without crashing.
* If ADir() crashes, the array is left intact as a 1-D array
* so it has to be redimensioned, but what was already loaded stays intact.

lExceeded=.F.
TRY 
  nFiles=ADIR(aTheFiles,"X:\MyPath\*.*")
CATCH 
  * Too many files.  Limiting the scan to max files retrieved.
  lExceeded=.T.
  nFiles=INT(ALEN(aTheFiles) / 5)
  IF nFiles > 0
    DIMENSION aTheFiles(nFiles,5)
  ENDIF 
ENDTRY   
* Check lExceeded to determine the outcome of adir()