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參數必須以“\”符號結尾。