[kiripanda]

Код:

@echo off &setlocal enableextensions

for /f "delims=" %%i in ('dir /b/s/ad') do (
	pushd "%%i"
	call :list
	popd
)
goto :eof

:list
if exist list.tmp del /q list.tmp
for /f "delims=" %%a in ('dir /b/a-d Call1_*_*.nmf') do (
	for /f "tokens=2,* delims=_" %%b in ("%%a") do if not "%%~nc"=="" echo "%%c" "%%a" >>list.tmp
)
set digs=""
for /f "tokens=1,*" %%a in ('sort list.tmp') do call :del_dups %%a %%b
del /q list.tmp
goto :eof

:del_dups
if %digs% == %1 del /q %2
set digs=%1
goto :eof

[sampir]

Kiripana, огромное Вам спасибо!!! Работает на задаче без всяких исправлений, как есть. Сегодня уже проходил боевое применение на массиве звонков. Все отлично! Еще раз большое спасибо, спасли кучу времени и нервов, из-за возможных ошибок ручной работы.