[文本处理] 【已解决】批处理如何给文件夹名称后添加里面所有文件的数量？

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /ad /b /s^|sort /r') do (
	set j=0
	for /f "delims=" %%b in ('CD "%%a" ^& dir /a-d /b /s 2^>nul') do (set /a j+=1)
	ren "%%a" "%%~na-!j!"
)
echo 执行完毕！
pause>nul
复制代码

//&cls&@cscript -nologo -e:jscript "%~f0"&exit
var FSO  = new ActiveXObject('Scripting.FileSystemObject');
var Folder = new Enumerator(FSO.GetFolder(FSO.GetFile(WScript.ScriptFullName).ParentFolder.Path).SubFolders);
while (!Folder.atEnd()) {
    FileCount(Folder.item());
    Folder.moveNext();
}

function FileCount(FolderName) {
    var n = 0;
    var Folder_ = FSO.GetFolder(FolderName);
    var Files = new Enumerator(Folder_.Files);
    while (!Files.atEnd()) {
        n += 1;
        Files.moveNext();
    }
    Folder_.Name = Folder_.Name + '-' + n;
}
复制代码