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