' & cls & cscript.exe /nologo /e:vbs "%~f0" "D:\A" >out.txt & pause & exit

Dim oFSO, oFolder, s

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(Wsh.Arguments(0))

s = ""
Call EnumFolders(oFolder.Path)
s = Left(s, Len(s) - 2)

Sub EnumFolders(ByVal folderPath)
    Dim oFolder
    On Error Resume Next
    s = s & folderPath & vbCrLf
    For Each oFolder In oFSO.GetFolder(folderPath).SubFolders
        Call EnumFolders(oFolder.Path)
    Next
End Sub

For Each i In Split(s, vbCrLf)
    Set oFolder = oFSO.GetFolder(i)
    If oFolder.SubFolders.Count = 0 Then
        Wsh.Echo oFolder.Path & " [" & oFolder.Files.Count & "个文件]"
    End If
Next
复制代码

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
set "ThisFolder=%~f0"
for /f "delims=" %%i in ('dir /b /s /ad ^| sort /r') do (
    if "!ThisFolder!" neq "%%~fi\" (
        for /f "delims=" %%j in ('dir /b /a-d "%%i" 2^>nul ^| find /v /c ""') do (
            if "%%j" neq "0" (
                echo %%i [%%j]
            )
        )
    )
    set "ThisFolder=%%~dpi"
)
pause
复制代码