*Displaying the sub-directory contents *---------------------------------------- =ADIR(aArray,"","D") FOR i=1 TO ALEN(aArray,1) cFilePath=FULLPATH(aArray(i,1))+"\*.*" =ADIR(aSubArray,cFilePath) LIST MEMORY LIKE aSubArray NEXT Return