CMD/BAT - требуется найти разницу в размере папки до работы скрипта и после

[Prog-Man]

Здравствуйте! Собственно все написано в теме.

Нашел две программы выводящие размер папки, но не знаю как получить эти данные в виде переменной.



Disk Usage

https://technet.microsoft.com/en-us/.../bb896651.aspx

Код:

Код: Выделить всё

Files:        109
Directories:  13
Size:         204а480а579 bytes
Size on disk: 204а745а120 bytes

Diruse

https://technet.microsoft.com/en-us/...99(WS.10).aspx

Код:

Код: Выделить всё

Size  (b)  Files  Directory
204478577    109  SUB-TOTAL: C:\Z
204478577    109  TOTAL: C:\Z

[Iska]

Prog-Man, лучше ни то, ни другое. Арифметика пакетных файлов целочисленна, 32-разрядна (один бит отнесён под знак) и посему крайне ограничена диапазоном от -2,147,483,648 до 2,147,483,647.



Вам под какие цели? Можно, например, использовать mshta и VBScript/JScript внутри, наподобие:



Код:

Код: Выделить всё

@echo off
setlocal enableextensions enabledelayedexpansion
set sSourceFolder=E:\Песочница\0425

if exist "%sSourceFolder%\." (
	for /f "usebackq delims=" %%i in (
		`@"%systemroot%\system32\mshta.exe" "javascript:try {with(new ActiveXObject('Scripting.FileSystemObject')) {GetStandardStream(1).Write(GetFolder('%sSourceFolder:\=\\%').Size)}};catch (e){};close();"`
	) do set sPrevFolderSize=%%i
	echo Previously size [!sPrevFolderSize!].
	rem Здесь начинается Ваш код
	echo bla-bla-bla
	echo bla-bla-bla
	echo bla-bla-bla
	rem Здесь заканчивается Ваш код
	
	for /f "usebackq delims=" %%i in (
		`@"%systemroot%\system32\mshta.exe" "javascript:try {with(new ActiveXObject('Scripting.FileSystemObject')) {GetStandardStream(1).Write(GetFolder('%sSourceFolder:\=\\%').Size - !sPrevFolderSize!)}};catch (e){};close();"`
	) do set sDifference=%%i
	echo Difference after working is [!sDifference!].
) else (
	echo Can't find source folder [%sSourceFolder%].
	exit /b 1
)
endlocal
exit /b 0

вообще не задействуя вычисления внутри самого пакетного файла.

[Iska]

Вот мой скрипт(сильно не пинайте это мой первый скрипт).



Код:

Код: Выделить всё

@echo off
cd %1
:: Инициализация Секундомера
:: viewtopic.php?p=2535770#p2535770
%USERPROFILE%\Desktop\Util\timemer my_backup start
:: Оптимизация JPG
:: jpegtran http://jpegclub.org/jpegtran/
if not exist %1\*.jpg if not exist %1\*.jpeg goto mp3
pause
md "%~1\OptimizedJPEGS"
for %%i in (*.jpg *.jpeg) do %USERPROFILE%\Desktop\Util\jpegtran.exe -optimize -progressive -copy none "%%i" "%~1\OptimizedJPEGS\%%i"
move /Y "%~1\OptimizedJPEGS\*.*" "%~1"
rd "%~1\OptimizedJPEGS"
:mp3
:: Оптимизация MP3
:: mp3packer 2.04
if not exist %1\*.mp3 goto gif
md "%~1\OptimizedMP3"
for %%i in (*.mp3) do %USERPROFILE%\Desktop\Util\mp3packer64.exe -f -z --workers 3 "%%i" "%~1\OptimizedMP3\%%i"
move /Y "%~1\OptimizedMP3\*.*" "%~1"
rd "%~1\OptimizedMP3"
:gif
:: Оптимизация GIF
:: gifsicle 1.87 9.Dec.2014 http://www.lcdf.org/gifsicle/
if not exist %1\*.gif goto bmp
for %%i in (*.gif) do %USERPROFILE%\Desktop\Util\gifsicle.exe -b -O3 "%%i"
:bmp
:: Конвертирование BMP в PNG
if not exist %1\*.bmp goto png
md "%~1\OptimizedBMP_PNG"
for %%i in (*.BMP) do "%USERPROFILE%\Desktop\Util\pngout.exe" "%%i" "%~1\OptimizedBMP_PNG\%%i"
move /Y "%~1\OptimizedBMP_PNG\*.*" "%~1"
rd "%~1\OptimizedBMP_PNG"
:png
:: Оптимизация PNG
:: PNGOUT http://advsys.net/ken/utils.htm
if not exist %1\*.png goto fin
for %%i in (*.png) do "%USERPROFILE%\Desktop\Util\pngout.exe" "%%i"
move /Y "%~1\OptimizedBMP_PNG\*.*" "%~1"
rd "%~1\OptimizedBMP_PNG"
md "%~1\defluff"
for %%i in (*.png) do %USERPROFILE%\Desktop\Util\defluff.exe  "%~1\defluff\%%i"
for %%i in (*.png) do "%USERPROFILE%\Desktop\Util\DeflOpt.exe" "%~1\defluff\%%i"
move /Y "%~1\defluff\*.*" "%~1"
rd "%~1\defluff"
:fin
:: Получаем время работы программы
%USERPROFILE%\Desktop\Util\timemer my_backup view
Pause

Если задать каталог вручную то все работает правильно, но как поступить в случае если каталог получается через



Код:

Код: Выделить всё

cd %1

[Prog-Man]

Замените:



Код:

Код: Выделить всё

set sSourceFolder=E:\Песочница\0425

на:



Код:

Код: Выделить всё

set sSourceFolder=%~1
if not defined sSourceFolder (
	echo Usage: %~nx0 ^
	exit /b 2
)

и далее, в том числе и в своём коде, используйте «%sSourceFolder%» вместо «%1».

[Prog-Man]

Код:

Код: Выделить всё

::@echo off
cd %1
setlocal enableextensions enabledelayedexpansion
set sSourceFolder=%~1
if not defined sSourceFolder (
	echo Usage: %~nx0 ^
	exit /b 2
)
:: Где то после этого момента вылетает
if exist "%sSourceFolder%\." (
	for /f "usebackq delims=" %%i in (
		`@"%systemroot%\system32\mshta.exe" "javascript:try {with(new ActiveXObject('Scripting.FileSystemObject')) {GetStandardStream(1).Write(GetFolder('%sSourceFolder:\=\\%').Size)}};catch (e){};close();"`
	) do set sPrevFolderSize=%%i
	echo Previously size [!sPrevFolderSize!].

Цитата Iska:



в том числе и в своём коде, используйте «%sSourceFolder%» вместо «%1».

CMD/BAT - требуется найти разницу в размере папки до работы скрипта и после

%~1 тоже заменить?

[Iska]

Вместо «cd %1» должно быть «cd /d "%sSourceFolder%"». И не в начале пакетного файла, а в том месте, где зелёным по голубому написано «Здесь начинается Ваш код»/«Здесь заканчивается Ваш код».




Цитата Prog-Man:



:: Где то после этого момента вылетает

CMD/BAT - требуется найти разницу в размере папки до работы скрипта и после

До или после вывода «Previously size […].»? Как именно «вылетает»?




Цитата Prog-Man:



%~1 тоже заменить?

CMD/BAT - требуется найти разницу в размере папки до работы скрипта и после

Да.

[Prog-Man]

Цитата Iska:



До или после вывода «Previously size […].»? Как именно «вылетает»?

CMD/BAT - требуется найти разницу в размере папки до работы скрипта и после

Закрывается до вывода «Previously size […].»

[Iska]

Ух. Покажите получившийся у Вас код.

[Prog-Man]

Код:

Код: Выделить всё

@echo off
setlocal enableextensions enabledelayedexpansion
set sSourceFolder=%~1
if not defined sSourceFolder (
	echo Usage: %~nx0 ^
	exit /b 2
)
if exist "%sSourceFolder%\." (
	for /f "usebackq delims=" %%i in (
		`@"%systemroot%\system32\mshta.exe" "javascript:try {with(new ActiveXObject('Scripting.FileSystemObject')) {GetStandardStream(1).Write(GetFolder('%sSourceFolder:\=\\%').Size)}};catch (e){};close();"`
	) do set sPrevFolderSize=%%i
	echo Previously size [!sPrevFolderSize!].
cd /d "%sSourceFolder%"
:: Инициализация Секундомера
:: viewtopic.php?p=2535770#p2535770
%USERPROFILE%\Desktop\Util\timemer my_backup start
:: Оптимизация JPG
:: jpegtran http://jpegclub.org/jpegtran/
if not exist %sSourceFolder%\*.jpg if not exist %sSourceFolder%\*.jpeg goto mp3
pause
md "%sSourceFolder%\OptimizedJPEGS"
for %%i in (*.jpg *.jpeg) do %USERPROFILE%\Desktop\Util\jpegtran.exe -optimize -progressive -copy none "%%i" "%sSourceFolder%\OptimizedJPEGS\%%i"
move /Y "%sSourceFolder%\OptimizedJPEGS\*.*" "%sSourceFolder%"
rd "%sSourceFolder%\OptimizedJPEGS"
:mp3
:: Оптимизация MP3
:: mp3packer 2.04
if not exist %sSourceFolder%\*.mp3 goto gif
md "%sSourceFolder%\OptimizedMP3"
for %%i in (*.mp3) do %USERPROFILE%\Desktop\Util\mp3packer64.exe -f -z --workers 3 "%%i" "%sSourceFolder%\OptimizedMP3\%%i"
move /Y "%sSourceFolder%\OptimizedMP3\*.*" "%sSourceFolder%"
rd "%sSourceFolder%\OptimizedMP3"
:gif
:: Оптимизация GIF
:: gifsicle 1.87 9.Dec.2014 http://www.lcdf.org/gifsicle/
if not exist %sSourceFolder%\*.gif goto bmp
for %%i in (*.gif) do %USERPROFILE%\Desktop\Util\gifsicle.exe -b -O3 "%%i"
:bmp
:: Конвертирование BMP в PNG
if not exist %sSourceFolder%\*.bmp goto png
md "%sSourceFolder%\OptimizedBMP_PNG"
for %%i in (*.BMP) do "%USERPROFILE%\Desktop\Util\pngout.exe" "%%i" "%sSourceFolder%\OptimizedBMP_PNG\%%i"
move /Y "%sSourceFolder%\OptimizedBMP_PNG\*.*" "%sSourceFolder%"
rd "%sSourceFolder%\OptimizedBMP_PNG"
:png
:: Оптимизация PNG
:: PNGOUT http://advsys.net/ken/utils.htm
if not exist %sSourceFolder%\*.png goto fin
for %%i in (*.png) do "%USERPROFILE%\Desktop\Util\pngout.exe" "%%i"
move /Y "%sSourceFolder%\OptimizedBMP_PNG\*.*" "%sSourceFolder%"
rd "%sSourceFolder%\OptimizedBMP_PNG"
md "%sSourceFolder%\defluff"
for %%i in (*.png) do %USERPROFILE%\Desktop\Util\defluff.exe  "%sSourceFolder%\defluff\%%i"
move /Y "%sSourceFolder%\defluff\*.*" "%sSourceFolder%"
rd "%sSourceFolder%\defluff"
for %%i in (*.png) do "%USERPROFILE%\Desktop\Util\DeflOpt.exe" "%%i"
:fin
:: Получаем время работы программы
%USERPROFILE%\Desktop\Util\timemer my_backup view
	for /f "usebackq delims=" %%i in (
		`@"%systemroot%\system32\mshta.exe" "javascript:try {with(new ActiveXObject('Scripting.FileSystemObject')) {GetStandardStream(1).Write(GetFolder('%sSourceFolder:\=\\%').Size - !sPrevFolderSize!)}};catch (e){};close();"`
	) do set sDifference=%%i
	echo Difference after working is [!sDifference!].
) else (
	echo Can't find source folder [%sSourceFolder%].
	exit /b 1
)
endlocal
exit /b 0

[Iska]

Ух. Покажите получившийся у Вас код.