[megaloman]

О, он даже сам себя не перемещает, как удобно А то приходилось после выполнения каждый раз в папку bat заглядывать и удалять сам скрипт »

Если каждый раз бросать батник в обрабатываемую папку и затем удалять его - это мазохизм по методу Петрова.

Лучше не копировать батник в обрабатываемую папку. Создайте его в каком-либо месте и на рабочем столе создайте только ярлык на него. В проводнике выбирайте нужную для обработки папку и мышкой затаскивайте его на этот ярлык. Вариант для такой работы. »

Код:

@Echo Off
cls
>nul Chcp 1251
	If "%~1"=="" (Echo Bat File "%~dpnx0" mast run with argument: folder path. Press any key. &>nul Pause &Exit /B)
 
 	Set "BoxIn=%~1"
	If "%BoxIn:~-1%"=="\" Set "BoxIn=%BoxIn:~0,-1%"

	Set "BoxOut=%BoxIn%" 

	FOR /F "usebackq delims=" %%f In (`2^>nul Where "%BoxIn%":"*.?*"`) DO (
		If Exist "%%f" (
			Set "Ext=%%~xf"
			2>nul Call MD "%BoxOut%\%%Ext:~1%%"
			>nul Call Move "%%~dpf*%%~xf" "%BoxOut%\%%Ext:~1%%\"
		)
	)
Echo Press any key. &>nul Pause
Exit /B