vb递归调用，统计出子文件夹内的所有文件,麻烦各位帮忙看下

Set FSO = CreateObject("Scripting.FileSystemObject")
folder="C:\Heroes3\"
wscript.echo ShowFolders(folder)
function ShowFolders(folder)
If Right(folder,1) <> "\" Then folder=folder&"\"
Set objfolder= FSO.GetFolder(folder)
Set Subfolder2 = objfolder.Files
findex2=Subfolder2.count
For Each File In Subfolder2
Set Subfolder1 = objfolder.SubFolders
findex=Subfolder1.count
For Each folders In Subfolder1
findex=findex+ShowFolders(folder&folders.name)
Next
Next
showfolders=findex&tab&findex2
End function
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
目的：统计出文件夹内（包括子文件夹）所有文件的数量
我的思路是定义个函数：使这个函数在统计文件夹时，同时统计文件夹内的文件数量，可是不对（程序能运行）输出的数量不对‘‘‘以上代码应该怎么改才正确？

VB用递归方法遍出100内奇数合...急... 递归调用 如何在VB中调用文件夹数据 函数的递归调用 递归调用的问题: 递归调用问题！ 函数递归调用 C++递归调用?? C语言递归调用 递归调用的问题