[megaloman]

mariolast,

Если это не злокозненное злодейство

Код:

@Echo Off
	Set "FileIn=Z:\Test\*.*"
	FOR /F "usebackq delims=" %%f IN (`2^>nul Dir "%FileIn%" /S /B /A:-D`) Do >"%%f" CD.
Exit /B

А неувядающий :) скрипт Iska столетней давности я бы переписал в виде

Код:

@Echo Off
	Set "BoxIn=remont"
	Set "OldName=ima*"
	Set "Ext=jpg"
	Set "NewName=image"
	
	Set /A i=0
	FOR /F "usebackq delims=" %%f IN (`2^>nul Dir "%BoxIn%\%OldName%.%Ext%" /B /A:-D`) Do If /I "%%~xf"==".%Ext%" Ren "%BoxIn%\%%f" "%%~nxf.~tmp"
	FOR /F "usebackq delims=" %%f IN (`2^>nul Dir "%BoxIn%\%OldName%.%Ext%.~tmp" /B /A:-D`) Do (
		Set /A i+=1
		Call Ren "%BoxIn%\%%f" "%NewName%%%i%%.%Ext%"
	)
Exit /B

Возможно, надо вместо ima*, как в вопросе и как сделал я в приведенном коде, надо написать
Set "OldName=*"