各位大侠.如何用vfp得到某一目录下所有文件名

各位大侠.如何用vfp得到某一目录下所有文件名

3 个解决方案

#1

参考ADIR函数

#2

ADIR()将文件信息存放到数组中，然后返回文件个数。

备注
对于每一个文件，ADIR() 将文件名、大小、日期、时间和属性信息存入数组。
示例
下面的示例使用 ADIR( ) 函数创建一个包含数据库信息的数组，然后显示这些数据库名。
CLOSE DATABASES
SET DEFAULT TO (HOME(2) + 'Data')

gnDbcnumber = ADIR(gaDatabase, '*.DBC')  && 创建一个数组

CLEAR
FOR nCount = 1 TO gnDbcnumber  && 遍历数据库
   ? gaDatabase(nCount,1)  && 显示数据库名
ENDFOR
SET PATH TO HOME()  && 设置路径到 Visual FoxPro 目录

#3

楼上的代码只能获得当前目录下的文件信息。
如果楼主要获得某一指定文件夹的文件名，则需要修改默认路径
参考以下代码
local wshShellApp
local objFolderSel
wshShellApp=createobject("shell.application")
objFolderSel=wshShellApp.browseforfolder(0,"请择择文件夹",0x30,0x40)
for i=0 to objFolderSel.items.count-1
  if not objFolderFolderSel.items.item(i).isfolder  &&如果想显示文件夹注释掉这句
    ?objFolderSel.items.item(i).title
　endif                            &&如果想显示文件夹注释掉这句
endfor