[megaloman]

как их починить? »

Дешевле купить новое.

Код:

@Echo Off
cls
>nul Chcp 1251
 	Set "BoxIn=%~dp0"
	If "%BoxIn:~-1%"=="\" Set "BoxIn=%BoxIn:~0,-1%"

	Set "BoxOut=%BoxIn%" 
rem	Set "BoxOut=Z:\Box_Out" 

	Attrib +R +H "%~dpnx0"
	FOR /F "usebackq delims=" %%f In (`2^>nul Where "%BoxIn%":"*.?*" ^|Find /I /V "%~dpnx0"`) DO (
		If Exist "%%f" (
			Set "Ext=%%~xf"
			2>nul Call MD "%BoxOut%\%%Ext:~1%%"
			>nul Call Move "%%~dpf*%%~xf" "%BoxOut%\%%Ext:~1%%\"
		)
	)
	Attrib -R -H "%~dpnx0"
Pause
Exit /B