Код:
@Echo Off
cls
>nul chcp 1251
Set "BoxIn=%APPDATA%\MyPrograms"
Set "Mask=*.exe"
Set "Ext=txt"
If Not Exist "%BoxIn%\" (Echo "%BoxIn%" Not found &Pause &Exit /B 2)
For /D %%d In ("%BoxIn%\*.*") Do (
For %%f In ("%%d\%Mask%") Do (
>"%BoxIn%\%%~nxd.%Ext%" (
Echo [ENGINE]
Echo %%~nf
Echo Author=Developer
Echo Filename=%%f
)
)
)
pause
Exit /B
