Не вижу смысла усложнять жизнь. Если надо упакованные копии, зачем копировать куда-то исходную директорию. Давайте сразу будем создавать где нужно архив. И быстрее и удобнее.
Код:
Set InDir="C:\Всякая дребедень"
Set Double1="D:\Всякая дребедень.Copy"
Set Double2="\\Всякие Копии\Всякая дребедень.Copy"
rem Set DT=%Date%
Set DT=%Date:~6,4%%Date:~3,2%%Date:~0,2%
Call :CopyDir %InDir% %Double1% %Double2%
GoTo End
:CopyDir
Set Otkuda="%~1\*.*"
"%ProgramFiles%\Winrar\Winrar.exe" a -r "%~2\%DT%" %Otkuda%
"%ProgramFiles%\Winrar\Winrar.exe" a -r "%~3\%DT%" %Otkuda%
:End
В папках, созданных для копий, будет набор rar-файлов с именами, совпадающими с датой создания. Что еще нужно? Вместо второй упаковки исходной директории логично написать копирование первого созданного архива - быстрее получится.
copy "%~2\%DT%.rar" "%~3\"
Примечание - Я предположил, что WinRar установлен стандартным образом в систнмную папку \Program Files\Winrar\
