[Georgio]

А то что-то слишком большой код для такой несложной задачи »

Да уж, написать такой код "чистыми" средствами языка пакетных файлов у меня не хватило бы духа.



V!RTuE, попробуйте так:

Код:

@echo off

for /f "tokens=1-6 delims=.-/" %%i in ('
 mshta "vbscript:CreateObject("Scripting.FileSystemObject").GetStandardStream(1).Write(DateAdd("D",1-WeekDay(Date,2),Date)&"."&DateAdd("D",5-WeekDay(Date,2),Date))&Close()"
') do 2>nul md "%~dp0%%k.%%j.%%i-%%n.%%m.%%l"

exit/b 0

.