Определить размер папки

:gtada
set p=%u%
cd..
if exist "%~dp0"\mod move "%~dp0"\mod %cd%
if exist "%~dp0"\backup move "%~dp0"\backup %cd%
cd "%~dp0"
cls
echo.
echo  Пожалуйста подождите...
goto sco
 
:yefi
cls
echo.
echo                                   Установка
echo.
echo   Идёт подсчёт файлов и их размера...
set p=%u%\%m%
:sco
For /F "tokens=1-3" %%a IN ('Dir "%p%" /-C/S/A:-D') Do Set DirSize=!n2!& Set n2=%%c
Set DirSize=%DirSize:~0,-6%
For /F "skip=4 tokens=1-3" %%a IN ('Dir "%p%" /-C /S /A:-D^|find /I "файлов"') Do (
set fi=%%a
)
if errorlevel 6 (
cd..
if exist "%~dp0"\mod move %cd% "%~dp0"\mod
if exist "%~dp0"\backup move %cd% "%~dp0"\backup
cd "%~dp0"
cls
echo.
echo                             Информация GTA IV
echo  Размер %DirSize% MB
echo  Установлена по пути:
echo  %u%
goto usmd
)
cls
echo.
echo                                   Установка
echo.
echo   Найдено !fi! файлов, размер которых %DirSize% MB
echo.
echo   Начать установку
echo   Удаление мода
echo   Назад
choice /C 123 /N
if errorlevel 3 goto re
if errorlevel 2 goto ud
if errorlevel 1 goto set

:re
cd %~dp0
cls
setlocal enabledelayedexpansion
color 70
title v0.546 Время %time%
if not exist %u%\installmod.bat echo.& echo  Программа должна находится в папке с игрой (%u%)
echo.
echo  Russinan
echo  Установка
echo  Фиксация
echo  Запуск GTA IV
echo  Расположение
echo  Бэкап
echo  Инфо
echo  Выход
choice /C 12345678 /N
if errorlevel 8 exit
if errorlevel 7 goto i
if errorlevel 6 goto cb
if errorlevel 5 goto rs
if errorlevel 4 goto r
if errorlevel 3 goto fix
if errorlevel 2 goto in
if errorlevel 1 goto ru

:i
title Информация
if exist %u% goto gtada
cls
echo.
echo  GTA IV не установлена
goto pk
:gtada
cd..
if exist %~dp0mod move %~dp0mod %cd%
if exist %~dp0backup move %~dp0backup %cd%
cd %~dp0
cls
echo.
echo  Пожалуйста подождите...
set p=%u%
goto sco

:In
cd %~dp0
title Установка
cls
If not Exist "%m%\*.*" goto nofi
:yefi
cls
echo.
echo                                   Установка
echo.
echo   Идёт подсчёт файлов и их размера...
set p=%u%\%m%
:sco
For /F "tokens=1-3" %%a IN ('Dir "%p%" /-C/S/A:-D') Do Set DirSize=!n2!& Set n2=%%c
Set DirSize=%DirSize:~0,-6%
For /F "skip=4 tokens=1-3" %%a IN ('Dir "%p%" /-C /S /A:-D^|find /I "файлов"') Do (
set fi=%%a
)
if errorlevel 6 (
cd..
if exist %~dp0mod move %~dp0mod %cd%
if exist %~dp0backup move %~dp0backup %cd%
cd %~dp0
cls
echo.
echo                             Информация GTA IV
echo  Размер %DirSize% MB
echo  Установлена по пути:
echo  %u%
goto usmd
)
cls
echo.
echo                                   Установка
echo.
echo   Найдено !fi! файлов, размер которых %DirSize% MB
echo.
echo   Начать установку
echo   Удаление мода
echo   Назад
choice /C 123 /N
if errorlevel 3 goto re
if errorlevel 2 goto ud
if errorlevel 1 goto set

@Echo Off
Setlocal EnableDelayedExpansion
Set /A num=3
::Вычисляем 3 в 4-й степени
Call :Stepping num 4
Echo %num%
pause
exit /B
 
:Stepping %1 - Переменная с числом %2 - Степень
set /A s=%2
if %s%==0 (Set /A %1=1& exit /b)
if %s%==1 exit /b
set step=%3
if not defined step set step=!%1!
set /A s-=1
set /A %1*=%step%
Call :Stepping %1 %s% %step%
exit /b

Set /A DirSize=DirSize/1024/1024

Echo Size of %D% is %DirSizeMB% MB. > file.txt