[решено] Распарсить имя файла

[KYI]

Добрый день!
Есть необходимость распарсить имя файла, через батник, на составные части.
В папку кладут файл с именем определенного формата, например vasya_2012_Err.doc (имя файла каждый раз разное, но формат всегда один)
Подскажите как разобрать батником имя файла на отдельные части и эти части запихать в отдельные переменные?
Должны получиться три переменные со значениями:
vasya
2012
Err

[Foreigner]

@echo off
setlocal

for /f "tokens=1-3 delims=_" %%i in ('dir /b *_*_*.doc') do (

set "name=%%i"
set "year=%%j"
set "data=%%~nk"

)

echo %name%
echo %year%
echo %data%

[Elven]

for /F %%i in ('dir /b /a:-d') do for /f "tokens=1-3 delims=_" %%A in ("%%~ni") do echo %%A %%B %%C