[Georgio]

Код:

@Echo Off
Set MyDir=C:\lab1\wingraf
Set Ras=.gif

Call :_subdir %MyDir% %Ras%
Echo %Size%
Pause>Nul
Exit

:_subdir
For /R %1 %%s In (*) Do if %%~xs==%2 SET /A Size+=%%~zs
EXIT /B

[Foreigner]

%size% += %~Za »

Прекрасный метод для сложения пары *.avi

Код:

> set /a 2147483648+1                             
Неверное число. Числа ограничены 32 битами точности.

>

Пакетные файлы не предназначены для этих целей. PowerShell:

Код:

Param(
   
   [string] $Path,
   [string] $Extension

)

get-childitem "$Path\$Extension" -recurse | % { $size += $_.length }

$size

[kelevara]

Foreigner, я бы и рад использовать что-то другое, python например, но таково задание =(

[Foreigner]

но таково задание =( »

Что это значит? Если домашка, то делай сам.

[Ксеноинженер]

Код:

@Echo Off
Set MyDir=C:\lab1\wingraf
Set MyExt=gif
Set Size=0
for /f "tokens=*" %%I IN ('dir /b /s "%%MyDir%%\*.%%MyExt%%"') DO (
	set /a Size=Size+%%~zI/1024
	color 8E & echo %%I
)
cls
color 9 & Echo Файлы с расширением .%MyExt% в каталоге %MyDir%\ с подкаталогами имеют суммарный объём, равный %Size% Кбайт.
pause

[kelevara]

Foreigner, не знаю, домашка или что-то другое. Друг попросил помочь разобраться.

[severagent007]

kelevara, ну так чем ответGeorgio, не устраивает? сразу чётко тебя исправили всё работает!

[kelevara]

severagent007, я разве говорю, что меня что-то не устраивает? По сабжу - оба кода работают, какой из них выберет друг - не знаю.
Спасибо всем откликнувшимся!

[gora]

Результат в байтах, размеры файлов значения не имеют:

Код:

@Echo Off
:: Кодировка Кириллица DOS (866)
Set MyDir=g:\Films
Set ext=avi

For /F "tokens=2*" %%i In ('Dir /s /-c "%MyDir%\*.%ext%" ^| Findstr " файлов"') Do Set size=%%j
Set size=%size: байт=%
Echo Общий размер всех файлов = %size% байт
Pause>Nul