Рекурсивный обход папки

[Chargos]

Доброго времени суток. Помогите, пожалуйста, со следующим заданием...
Обходя рекурсивно папку, найти все файлы с сопоставлением MS Paint. Имена найденных файлов скинуть в *.log файл с префиксом.
Пример: Имя найденного файла "Безмятежность.bmp" запишется в *.log как "29.12.2010_Безмятежность.bmp"
Заранее благодарен.

[El Sanchez]

Chargos, пути, названия файлов, выделенные красным, ставите свои

@Echo Off
Set Source=C:\Source
Set LogFile=LogFile.log

Del /F /Q "%LogFile%" 2>nul
For /F "Tokens=1 Delims==" %%A In ('Ftype^|Find /i "mspaint"') Do (
For /F "Tokens=1 Delims==" %%B In ('Assoc^|FindStr /i =%%A$') Do (
For /F "Tokens=*" %%C In ('Dir /B /S "%Source%\*%%B" 2^>nul') Do Echo %Date%_%%~nxC>>"%LogFile%"
)
)