这组命令可以搞清楚硬盘都有什么内容。

首先用SET DEFAULT TO (你的文件夹)
接着用ADIR(ArrayName [, cFileSkeleton [, cAttribute [, nFlag]]])函数，获取某文件夹下文件的名称、大小、最后修改时间，存放于数组ArrayName中。
然后循环这个数组，逐条记录导出到Excel

导出Excel要用myexcel=CREATEOBJECT('excel.application')

具体代码请自行组织。可查阅vfp帮助及百度。

使用 ADIR(ArrayName [, cFileSkeleton [, cAttribute [, nFlag]]])
在不知道文件夹中都有哪些名称的文件，只知道缀，ADIR( )函数是如何显示出文件名的？我试了一下，还是没搞清楚。

VFP帮助

我尝试写入
cd = ADIR(pdflist,[*.pdf])
然后
?cd
结果显示该文件夹中有多少个PDF的文件。但是我想看的是文件的名称，不知道使用什么代码？此外，文件大小、修改日期，又该如何写？

用DOS命令就可以了
 dir /a-d  >fnm.txt

我用dir *.pdf看到了文件夹中所有的PDF文件。谢谢指点！
ADIR()建立了相关数组，是否只有将数组存入DBF文件，或者EXCEL文件才能打开看到内容？

clear
vlen=ADIR(varr_file,'*.pdf')
IF vlen>0 THEN
    FOR i=1 TO vlen
        ?"文件名："+varr_file(i,1)+" / 大小："+TRANSFORM(varr_file(i,2))+" / 最后修改日期："+TRANSFORM(varr_file(i,3))+" / 最后修改时间："+TRANSFORM(varr_file(i,4))
    ENDFOR
ENDIF
这个adir函数把当前文件夹下指定的文件（比如pdf文件）信息存入一个二维数组（比如varr_file）,这个数组的每一行中，第一列是文件名，第二列是大小，等等。见4楼的介绍。

谢谢！