[Foreigner]

Код:

@echo off
setlocal

for /l %%i in (1,1,7) do (

    for /f "tokens=1-4 delims=_." %%j in ('dir /b cam_%%i') do (

        2>nul md "foto_%%l"
        copy "cam_%%i\%%j_%%k_%%l.%%m" "foto_%%l"

))

PS. Не проверял