[Sergey.l]

megaloman, спасибо большое!
Почему то переносит по одному файлу, когда выделяю два и более файла!?

Подредактировал так

Скрытый текст

Код:

@echo off 
cls 

rem Set /A DeltaDay * =0 -сегодня; *=1 -завтра; =-1 -вчера 
Set /A DeltaDay=0 

If "%~1"=="" ( 
Echo !!! Не указаны файлы для обработки &Echo: 
Pause 
Exit /B 240 
) 
SetLocal EnableDelayedExpansion 
Call :StrDate "yyyy" "mm" "dd" 

If Not %DeltaDay%==0 Call :FromNow %DeltaDay% %dd%.%mm%.%yyyy% "yyyy" "mm" "dd" 

Set "BoxOut=D:\0_TELEGR\%yyyy%\%mm%\%dd%\отправленные\" 
Set "BoxArc=D:\DMAIL\send\" 

rem Set "BoxData=%BoxArc%\%yyyy%\%mm%\%dd%" 
rem Md "%BoxData%" 2>nul 
rem Md "%BoxOut%" 2>nul 

:Begin 
If "%~1"=="" Pause &GoTo :Eof 

Set SCopy=Copy /-Y "%~1" "%BoxOut%" 
Set SMove=Move /-Y "%~1" "%BoxArc%" 
Echo %SCopy% &%SCopy% &&(Echo %SMove% &%SMove%) 


Shift 
GoTo :Begin 

:StrDate 
FOR /F "tokens=2 delims==." %%d in ('WMIC OS GET LOCALDATETIME /VALUE') DO SET "@Tdate=%%d" 
Set "%~1=%@Tdate:~0,4%" 
Set "%~2=%@Tdate:~4,2%" 
Set "%~3=%@Tdate:~6,2%" 
GoTo :Eof 

:FromNow 
rem Пересчет даты на заданное кол-во дней 
rem Формат даты dd.mm.yyyy +- дни получим новые yyyymmdd 

rem Заимствовано http://forum.oszone.net/thread-186889.html 
rem вызов Call :FromNow %DeltaDay% %Date% "yyyy" "mm" "dd" 
rem результат в перемменной %yyyy% %mm% %dd% 

SetLocal 
Set DT=%2 
Set yyyy=%DT:~-4%& set /a mm=100%DT:~3,2%%%100& set /a dd=100%DT:~,2%%%100 
Set /A JD=%~1+dd-32075+1461*(yyyy+4800+(mm-14)/12)/4+367*(mm-2-(mm-14)/12*12)/12-3*((yyyy+4900+(mm-14)/12)/100)/4 
Set /A L=JD+68569,N=4*L/146097,L=L-(146097*N+3)/4,I=4000*(L+1)/1461001 
Set /A L=L-1461*I/4+31,J=80*L/2447,K=L-2447*J/80,L=J/11 
Set /A J=J+2-12*L,I=100*(N-49)+I+L 
Set /A yyyy=I,mm=100+J,dd=100+K 
EndLocal &(Set %~3=%yyyy%&Set %~4=%mm:~-2%&Set %~5=%dd:~-2%) 
GoTo :Eof

P.S. не знаю, но может быть на vbs будет лучше работать