[Georgio]

Сантей, а не проще ли использовать такой код:

Код:

@echo off

for /f "tokens=1,2,4,5 delims=.-/" %%i in ('
 mshta vbscript:Execute("Set x=CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1):If Weekday(Now,vbMonday)<>5 Then:x.Write(Date&""-""&DateAdd(""D"",1,Date)):Else x.Write(Date&"".""&DateAdd(""D"",3,Date)):End If:Close()"^)
') do (
 for /f %%m in ('dir/a/b %%i_%%j_News') do (
  for /f "tokens=1,2* delims=_" %%n in ("%%~nxm") do (
   if "%%n_%%o" equ "%%i_%%j" (
    echo f| xcopy/i/h/k/y "%%i_%%j_News\%%m" "%%k_%%l_News\%%k_%%l_%%p">nul
   ) else (
    echo f| xcopy/i/h/k/y "%%i_%%j_News\%%m" "%%k_%%l_News\%%m">nul
   )
   )
  )
 )

exit/b

?

Таков формат названия папки, в ней тоже есть папки и файлы формата %день%_%месяц%_Фамилия. Надо чтоб они тоже переименовывались в %день+1%_%месяц%_Фамилия »

Данный код это также делает.