Изменение переменной цикла (изменение части пути)

call call set "ss2=%%%%ss1:~%%n%%%%%%"

for /f "tokens=1,*" %%a in ('dir %post_dir_full% /b/ad') do (
    for /f "tokens=1,*" %%b in ('dir %post_dir_full%\%%a\?? /b/ad') do (
        Set ss1=%%a
        Set ss2=!ss1:~%n%!
        Echo !ss2!
        xcopy /s /y "%post_dir_full%\%%a\%%b" "D:\4\!ss2!\%%b\" 
        echo %post_dir_full%\%%a\%%b >> tmp.tmp
    )
)

for /f "tokens=1" %%i in (./tmp.tmp) do (
    rem В переменной i - путь вида D:\poshta\2014\02\02TP01P2\06 
    move "%%i" "%%i!"
)

@echo off
setlocal enabledelayedexpansion
 
:: путь, по которому ишем
set in=c:\апр
:: директория, с имени которой сохранять куст
set out=477765
:: новое имя сохранённой директории с обрезанными двумя знаками
set newdir=!out:~0,-2!
 
:: отсекаем полный путь по директории %out%
for /f "delims=%out%" %%a in ('dir /b /s "%in%\*"') do set old=%%a
:: копируем "правый" отрезок куста в другое место
xcopy /s /i "%old%%out%" "d:\88\%newdir%\" >nul
:: добавляем знак ! в конец директории второго уровня
for /d %%b in (d:\88\%newdir%\*) do ren "%%b" "%%~nb^!"
pause

@echo off
@SetLocal enabledelayedexpansion
REM путь по которому ищется почта
REM W:\poshta\2014\02\02TP06P1
REM W:\poshta\"Год(4)"\"Месяц(2)"\"Месяц(2)+Тип(6)"
SET post_dir=D:\poshta
 
REM Устанавливаем текущий месяц
SET month=02
 
REM Устанавливаем текущий год
SET year=2014
 
SET post_dir_full=%post_dir%\%year%\%month%
 
for /f "tokens=1,*" %%a in ('dir %post_dir_full% /b/ad') do (
    for /f "tokens=1,*" %%b in ('dir %post_dir_full%\%%a\?? /b/ad') do (
        Set ss1=%%a
        REM Забираем 5 первых символов и вместо них ставим Т => получаем Т6P1 из 02TP06P1
        Set ss2=T!ss1:~5!
        xcopy /s /y "%post_dir_full%\%%a\%%b" "D:\4\!ss2!\%%b\" 
        move /y "%post_dir_full%\%%a\%%b" "%post_dir_full%\%%a\%%b^!"
    )
)
 
pause