Код: Выделить всё
@Echo Off
cls
Set "BoxIn=Z:\Box_In"
Set "Name=D*_??"
Set "Ext1=jpg"
Set "Ext2=eps"
Set "BoxOut=Z:\Box_Out"
Set /A Nfold=31
For %%f In (1,1,10) Do Call Set /A Rnd=%%Random%%
FOR %%f IN ("%BoxIn%\%Name%.%Ext1%") Do (
If Exist "%%~dpnf.%Ext2%" Call :NumFile "%%~dpnf"
)
FOR /F "usebackq skip=%Nfold% delims==" %%f IN (`2^>nul Set "@@"`) DO Set "%%f="
Set /A i=101
FOR /F "usebackq tokens=2 delims==" %%f IN (`2^>nul Set "@@"`) DO (
Call Set "ii=%%i:~-2%%"
2>nul Call Md "%BoxOut%\%%ii%%"
>nul Call Move "%%f.%Ext1%" "%BoxOut%\%%ii%%\"
>nul Call Move "%%f.%Ext2%" "%BoxOut%\%%ii%%\"
Call Set /A i+=1
)
Pause
Exit /B
:NumFile
Set /A Rnd=10000+32768*%Random%/32768
>nul 2>&1 Set "@@%Rnd%"&& GoTo :NumFile
Set "@@%Rnd%=%~1"
Exit /BКод: Выделить всё
$rootFolder = "c:\temp\random"
dir $rootFolder |? psiscontainer -eq $false |group basename |% {
mv $_.group.fullname "$rootFolder\$(get-random (1..31))" -WhatIf
}