用递归统计文件数

用统计文件数做一个示范吧，VB的，先要在引用里加上Microsoft Scripting Runtime：
Function FileCount(d As Scripting.Folder) As Integer
FileCount=0
Dim flds As Scripting.Folders, fld As Scripting.Folder, fld2 As Scripting.Folder, Fles As Scripting.Files, Fle As Scripting.File
Set flds = d.SubFolders
For Each fld In flds
FileCount=FileCount+FileCount(fld)
Next
Set Fles = d.Files
For Each Fle In Fles
FileCount=FileCount+1
Next
End Function

那个Scripting.Folder类需要这样赋值：
Dim fs As New Scripting.FileSystemObject
Set fld = fs.GetFolder(文件夹路径)

另外，如果是NTFS格式文件系统，最好要考虑文件的访问权限问题

MFC代码.使用前两个参数初始化为0
===========================
void GetInfo(CString csPath, long& iDirCnt, long& iFileCnt)
{
::SetCurrentDirectory(csPath);
CFileFind ff;
BOOL bWorking = ff.FindFile("*.*");
while(bWorking)
{
bWorking = ff.FindNextFile();

if(ff.IsDots()) continue;