excel vba 中如何取得目录下文件的数量

Function?FileCount(cPath?As?String)?as?Integer

cFile=Dir(cPath?&?"*.*")

Do?While?cFile<>""

FileCount=FileCount+1

cFile=Dir

Loop

End?Function

这是一段自定义函数，在Excel VBA编辑模式下，主菜单“插入”——“模块”，将代码粘贴到右侧编辑区。如果在工作表状态下使用，在单元格输入：=FileCount("c:\XXX\")就可以得出c:\XXX文件夹下的所有文件个数（不含子文件夹)；如果在代码中使用，则可以：nFileCount=FileCount("c:\XXX\")得到文件个数。注意：cPath参数必须以“\”符号结尾。