用反复使用ADIR()函数
例ADIR(AAA,"D:\*.*","D")表示查找D盘下所有文件夹,内容存放在数组AAA中,每个文件夹信息包含5个内容:
AAA(1,1):第1个文件夹的文件名,字符型;
AAA(1,2):第1个文件夹的文件大小,数值型;
AAA(1,3):第1个文件夹的最后修改日期,日期型;
AAA(1,4):第1个文件夹的最后修改时间,字符型;
AAA(1,5):第1个文件夹的属性(D表示文件夹),字符型
找到上述文件夹后与"GRASP"进行比较,符合的话,具体路径就是"D:\GRASP";没有符合的文件夹的话,将上述命令中的"D:\*.*"换成所有找到的文件夹再进行寻找,比如已经找到文件夹"TEST",则进一步查找的命令是ADIR(BBB,"D:\TEST\*.*","D")。余类推。