获取Foxpro中目录中的文件列表

Question

如何在foxpro中以编程方式获取目录中的文件列表？

Answer 1

ADIR() - 使用任何通配符创建基于目录的数组...

local array MyFiles[1,5]
nFilesFound = ADIR( MyFiles, "C:\Somepath\*.dbf" )

for i = 1 to nFilesFound
   ? "Name Of File: ", MyFiles[ i, 1]
   ? "Size: ", MyFiles[ i, 2]
   */ i,3 = date... i,4 = time,  i,5 = attributes
endfor