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

Question

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

- Hossein Moradinia

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

- DRapp

Answer 2

你也可以使用文件系统对象获取更多信息：

fso=createobject("scripting.filesystemobject")
fld=fso.getfolder(lcFolderName)
for each fil in fld.files
   ?"Name Of File: ", fil.name
   ?"Size: ", fil.size
   ?"Date created:", fil.DateCreated
   ?"Last modified:", fil.DateLastModified
next

- geoff franklin

---

优秀的示例，希望我能找到这类对象的其余部分... 谢谢Geoff Franklin。 - DeKoss