在VFP9中简单n=adir(x,"C:\windows\*.*","D") && 获取C:\windows文件夹下的所有目录名for i=1 to n insert into aa(dirname) values(x(i,1))next i
