File 在Foxpro中获取目录中的文件列表
如何在foxpro中以编程方式获取目录中的文件列表?ADIR()--使用任何通配符基于目录创建一个数组File 在Foxpro中获取目录中的文件列表,file,directory,foxpro,File,Directory,Foxpro,如何在foxpro中以编程方式获取目录中的文件列表?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 = ti
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
您还可以使用文件系统对象获取更多信息:
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
很好的例子,我希望我能找到这些类型的对象的其余部分。。。谢谢杰夫·富兰克林。