Добавьте размер папки в имя Folderame, используя пакетный файл / файл VBS для всех вложенных папок в каталоге

Question

Можно ли добавить размер папок в foldername, используя Batch / vbs для всех подпапок в каталоге?

Пример: У меня есть несколько подпапок в каталоге, как,

Name    --- Size
Folder1 --- (22.5GB)
Folder2 --- (980.3MB)
Folder3 --- (968.4KB)

Необходимо изменить имена папок на,

Folder1 [22.5 GB]
Folder2 [980.3 MB]
Folder3 [968.4 KB]

Я попытался с помощью следующего кода, он получает размеры папок на панели cmd, но нужно знать, как добавить размер к имени папки,

@echo off
Title Get Size of Folder and its subfolders
set "Folder=C:\RootFolder\"

For /f "delims=" %%a in ('Dir "%Folder%" /AD /b /s') do ( 
    (
        echo The size of "%%a" is 
        Call :GetSize "%%a"
    )
)
For /D %%a in (*) do rename "%%a"  "%%a [!GetSize!]" 

pause

::*************************
:GetSize
(
echo wscript.echo GetSize("%~1"^)
echo Function GetSize(MyFolder^)
echo    Set fso = CreateObject("Scripting.FileSystemObject"^)
echo    Set objFolder= fso.GetFolder(MyFolder^)  
echo    GetSize = FormatSize(objFolder.Size^)
echo End Function
echo '******************
echo 'Function to format a number into typical size scales
echo Function FormatSize(iSize^)
echo    aLabel = Array("bytes", "KB", "MB", "GB", "TB"^)
echo    For i = 0 to 4
echo        If iSize ^> 1024 Then
echo            iSize = iSize / 1024
echo        Else
echo            Exit For
echo        End If
echo    Next
echo    FormatSize = Round(iSize,2^) ^& " " ^& aLabel(i^)
echo End Function
echo '*****************
)>%tmp%\Size.vbs
Cscript /NoLogo %tmp%\Size.vbs
Del %tmp%\Size.vbs
Exit /b
::*********************