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参数必须以“\”符号结尾。

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vrfe3rxrjx7ej2e23y.html