[YuS_2]

Прочесал форум, находил схожие задачи, но не видел конкретно такой. »

Рандом в данной операции играет важную роль. »

Искренне надеюсь на вашу помощь. »

Рандом, конечно же, играет наиважнейшую роль в упорядочивании расположения файлов на диске, ага
За "изобретение" - 5, по предмету - 2. Профессор, конечно, лопух, но аппаратура при нём, при нём!
Помощь - предполагает наличие приложенных усилий, причем не для поиска готового решения, а приложенных усилий именно для решения задачи... есть внятные попытки решить задачу самостоятельно, студент?

[megaloman]

Как-то так

Код:

@Echo Off
cls
	Set "BoxIn=Z:\Box_In"
	Set "Mask=*.*"
	Set "BoxOut=Z:\Box_Out"
	Set /A QQ=5

	Set /A Max=10000	

	Set /A N=%Max%
	FOR %%f IN ("%BoxIn%\%Mask%") DO Call :Count "%%~nxf"
	
	Set /A M=N
	Set /A i=0
	Set /A ND=%Max%

	Set /A QQQ=QQ+%Max%
	Set /A L=0

	:Begin
		Set /A j=%Random%
		Set /A j=%Max%+1+%j%-(%j%/(%N%-%Max%))*(%N%-%Max%)

		If %L%==0 If %i%==0 Set /A ND+=1 
		If %L%==0 If %i%==0 Md "%BoxOut%\%ND%" 
		Call :MyMove "F%j%" "%%F%j%%%" "%BoxIn%" "%BoxOut%\%ND%"||(Set /A L=1 &GoTo :Begin)
		Set /A L=0
		Set /A i+=1
		Set /A M-=1
		If %M% GTR %Max% If %i% LSS %QQ% GoTo :Begin 
		Set /A i=0
		If %M% GTR %QQQ% GoTo :Begin 
                If %M% GTR %Max% Set /A ND+=1
                If %M% GTR %Max% (Md "%BoxOut%\%ND%" & >nul Move "%BoxIn%\%Mask%" "%BoxOut%\%ND%\")
pause
GoTo :Eof

:Count
	Set /A N+=1
	Set "F%N%=%~1"
GoTo :Eof

:MyMove
	If %2=="" Exit /B 1
	Set "%~1=" 
	>nul Move /Y "%~3\%~2" "%~4\"
Exit /B 0

[mwz]

Рандом, конечно же, играет наиважнейшую роль в упорядочивании расположения файлов на диске, ага »

А что, я тут как-то задавал чисто практический для меня вопрос: как к тысяче и более файлов приписать случайный числовой префикс, чтобы затем эти файлы можно было положить на флешку с FAT – т.е. чтобы при копировании на FAT по алфавиту они располагались там в случайном порядке относительно исходных имён. Результатом я был доволен.

[Iska]

А что, я тут как-то задавал чисто практический для меня вопрос: как к тысяче и более файлов приписать случайный числовой префикс »

Far Manager + Visual renaming files plugin, маска для имени — «[R]_[N]» .

[mwz]

Iska, Да я и для TotalCmd позже нашёл плагин RandomWDX_1_0_1. Но ваше как раз решение батника пригодилось напрямую: надо было иметь пятизначные числа с лидирующими нулями в случае, если значность меньше.

[Iska]

mwz, тут, увы, этого нет:

[R] Случайное число от 0 до 32767.

— просто число, достаточно ограниченное (можно, конечно, смультиплицировать сам шаблон), и без лидирующих нулей.

[megaloman]

mwz,

тут как-то задавал чисто практический для меня вопрос: как к тысяче и более файлов приписать случайный числовой префикс

Уже не актуально?

В дополнение к решенной 5 лет назад задаче, еще вариант

Код:

@Echo Off
cls
	Set "BoxIn=Z:\Box_In\Alll"
	Set "Mask=*.*"

	Set /A Max=10000

	Set /A N=%Max%
	FOR /F "usebackq delims=" %%f IN (`2^>nul Dir "%BoxIn%\%Mask%" /B /A:-D /O:-D /T:C`) DO Call :Count "%%~nxf"
	FOR /F "usebackq tokens=1* delims==" %%f IN (`Set "@@"`) DO Call :MyRen "%BoxIn%\%%g" "%%g" %Max%

	Set /A N=%Max%
	FOR /F "usebackq delims=" %%f IN (`2^>nul Dir "%BoxIn%\%Mask%" /B /A:-D /O:N`) DO Call :Count "%%~nxf"
	Set /A N=%Max%
	FOR /F "usebackq tokens=1* delims==" %%f IN (`Set "@@"`) DO Call :MyRen2 "%BoxIn%\%%g" "%%g" %Max%
pause
GoTo :Eof

:Count
	Set /A N+=1
	Set "@@%N%=%~1"
GoTo :Eof

:MyRen
	Set /A j=%Random%+%3
	Ren %1 "%j%_%~2"
Exit /B 0

:MyRen2
	Set /A N+=1
	Set "New=%~2"
	Ren %1 "%N%_%New:*_=%"
Exit /B 0

Если не требуется, чтобы префиксы никак не дублировались, красные строки можно удалить

[YuS_2]

т.е. чтобы при копировании на FAT по алфавиту они располагались там в случайном порядке относительно исходных имён. »

Ну, это несколько другая задача, действительно, имеющая практическое значение. А у ТС-а, "чисто" непрактическая задача, т.е. задача на поиск решения, всего лишь. То бишь, в данном случае, суть задачи абсолютно неважна, важен поиск решения... а мы, предоставляя ему решение, тем самым оказываем медвежью услугу... увы.

[mwz]

Уже не актуально? »

Ну это ж была "конечная" задача, и развития её с самого начала не просматривалось: лежит тот батничек у меня в папке, в которой файлы периодически удаляются и добавляются, периодически перетряхиваю им последовательность, задачу свою выполняет, мы с женой довольны.

Но спасибо — посмотреть другие методы тоже бывает полезно.