[palexa]

Как оказалось время исполнения имеет значение,
Пишу

Код:

@set @E=1; /*
echo %DATE% - %time:~,5% - %COMPUTERNAME% - Начало>>D:\log.txt
@Echo Off

Код:

::Pause
Echo on
echo %DATE% - %time:~,5% - %COMPUTERNAME% - Конец>>D:\log.txt
GoTo :Eof

Но не записывает конец

Что бы считало размер только одной верхней директории за комментировал строки
:: FOR /F "usebackq delims=" %%z IN (`Cscript //NoLogo /E:jscript "%~dpnx0" "%~1\%%d" "%~2"`) DO Call :Out "%%z" "%%d" "%~2"

Этого достаточно для скорости подсчёта ?

[megaloman]

palexa, переименуйте скрипт в txt, приложите к сообщению

[palexa]

Вот, прикладываю

[Iska]

Пишу »

Зараз приучайтесь писать так:

Код:

>>"D:\log.txt" echo %DATE% - %time:~,5% - %COMPUTERNAME% - Начало

Код:

>>"D:\log.txt" echo %DATE% - %time:~,5% - %COMPUTERNAME% - Конец

[megaloman]

palexa, Не делайте комментарии ::

[palexa]

Первый батник, ууу считает, устал ждать, и это самый маленький по размеру сервер

11.11.2018 - 19:58 - TS4 - Начало
122897 File(s) 43*007*258*445 bytes c:\Users\
11.11.2018 - 21:08 - TS4 - Конец

Последний обломался , странно как то

11.11.2018 - 21:14 - TS4 - Начало
on denied "c:\Users\"
11.11.2018 - 21:14 - TS4 - Конец 1

palexa, Не делайте комментарии :: »

ок

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

Спасибо за помощь

[it3]

Доброго времени суток!
Не стал создавать новую тему, решил написать в подобную:
Есть перечень каталогов:
O:\Folder1
O:\Folder1\podFolder1
O:\Folder2\podFolder2\podpodFolder2
O:\Folder3\podFolder3
... ... ... ... ...
O:\Folder4
O:\Folder5\podFolder5
O:\Folder6
... ... ... ... ...
размер которых необходимо вывести в *.txt/*.csv (Формат: Папка -> Размер).
Прошу помощи.

[it3]

- что такое перечень? Это текстовый файл, либо этот перечень предполагается организовать внутри скрипта? Размер в чём: байтах, гигабайтах? »

Перечень - внутри скрипта. Размер в Гигабайтах.

[megaloman]

CMD+JS Есть перечень каталогов, размер которых необходимо вывести в *.txt

Код:

@set @E=1; /*

@Echo Off
	CHCP 1251 >nul
	Set "Out3=D:\Мой контент гигабайт.txt"
	2>nul Del "%Out3%"

rem 0-байты, 1-килобайты, 2-мегабайты, 3-гигабайты

	>>"%Out3%" Call :InDir "D:\Мой контент" 3
	>>"%Out3%" Call :InDir "D:\Мой контент\Музыка" 3
	>>"%Out3%" Call :InDir "D:\Мой контент\Музыка\_Скопировано.wd" 3
	>>"%Out3%" Call :InDir "D:\Мой контент\Музыка\_Скопировано.wd\Vivaldi-1" 3
	>>"%Out3%" Call :InDir "D:\CMD_Forum\Муз" 3
GoTo :Eof

:InDir
	FOR /F "usebackq delims=" %%z IN (`Cscript //NoLogo /E:jscript "%~dpnx0" "%~1" "%~2"`) DO Call :Out "%%z" "%~1" "%~2"
GoTo :Eof

:Out
SetLocal
	Echo %~2 -^> %~1
EndLocal
GoTo :Eof

*/

var oArg = WScript.Arguments;
if (oArg.Count() < 1) {
	WScript.Echo("Arguments absent");
	WScript.Quit(1);
}

var FSO=WScript.CreateObject("Scripting.FileSystemObject");

if (!FSO.FolderExists(oArg(0))) {
	WScript.Echo("not found");
	WScript.Quit(2);
}

try {var sFold=FSO.GetFolder(oArg(0)).Size}
	catch (err) {if (err != 0) {
			WScript.Echo(err.description);
			WScript.Quit(3)}
			}
if (oArg.Count() == 2) {
	if (oArg(1)==1) sFold = Math.round(sFold/1024); 
	if (oArg(1)==2) sFold = Math.round(sFold/1024/1024); 
	if (oArg(1)==3) sFold = Math.round(sFold/1024/1024/1024); 
}

WScript.Echo(sFold);
WScript.Quit(0)

[it3]

megaloman, с сетевыми дисками скрипт не хочет работать.

Код:

O:\Folder\Folder -> not found
O:\Folder\Folder\Folder -> not found
O:\Folder\Folder\Folder7 -> not found
O:\Folder\Folder8 -> not found