批处理怎样统计最底层文件夹中的文件数量？

W102800

一个文件夹A里面有多个子文件夹，多个子文件里面又有多个子文件夹，依次连续，而在这些子文件夹里有的存在文件，有的是空文件夹，现在要做的是：

统计文件夹A中子文件夹的文件夹名称和文件个数并输出到TXT（空的文件夹也显示输出结果）。

格式是： 文件名 [文件个数
  

拜托大家了！

czjt1234

1. ' & cls & cscript.exe /nologo /e:vbs "%~f0" "D:\A" >out.txt & pause & exit
   
2. 
   
3. Dim oFSO, oFolder, s
   
4. 
   
5. Set oFSO = CreateObject("Scripting.FileSystemObject")
   
6. Set oFolder = oFSO.GetFolder(Wsh.Arguments(0))
   
7. 
   
8. s = ""
   
9. Call EnumFolders(oFolder.Path)
   
10. s = Left(s, Len(s) - 2)
    
11. 
    
12. Sub EnumFolders(ByVal folderPath)
    
13.     Dim oFolder
    
14.     On Error Resume Next
    
15.     s = s & folderPath & vbCrLf
    
16.     For Each oFolder In oFSO.GetFolder(folderPath).SubFolders
    
17.         Call EnumFolders(oFolder.Path)
    
18.     Next
    
19. End Sub
    
20. 
    
21. For Each i In Split(s, vbCrLf)
    
22.     Set oFolder = oFSO.GetFolder(i)
    
23.     If oFolder.SubFolders.Count = 0 Then
    
24.         Wsh.Echo oFolder.Path & " [" & oFolder.Files.Count & "个文件]"
    
25.     End If
    
26. Next

复制代码

把 D:\A 改成你指定的文件夹

W102800

回复 2# czjt1234


    感谢大哥相助！

Batcher

test-1.bat

1. @echo off
   
2. cd /d "%~dp0"
   
3. setlocal enabledelayedexpansion
   
4. set "ThisFolder=%~f0"
   
5. for /f "delims=" %%i in ('dir /b /s /ad ^| sort /r') do (
   
6.     if "!ThisFolder!" neq "%%~fi" (
   
7.         for /f "delims=" %%j in ('dir /b /a-d "%%i" 2^>nul ^| find /v /c ""') do (
   
8.             if "%%j" neq "0" (
   
9.                 echo %%i [%%j]
   
10.             )
    
11.         )
    
12.     )
    
13.     set "ThisFolder=%%~dpi"
    
14. )
    
15. pause

复制代码

Five66

读着感觉标题跟描述的不符，脑子混乱了