[megaloman]

Код:

@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

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