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

下面的代码在我电脑上执行通过，希望对袜侍兄比编程有所借鉴：

Option Explicit

Sub YgB()

    Dim n, f

    n = 0

    f = Dir("d:\我的文档\exp\*.doc*")

    While f <> ""

        n = n + 1

    谈漏    f = Dir

    Wend

    告袭MsgBox "总共有" & n & "个WORD文件"

End Sub

---