mariolast,
Код:
@Echo Off
Set "BoxIn=Z:\Soft_In
Set "DirIn=JS_Host"
Set "BoxOut=Z:\Soft_Arc"
xcopy /T /E /I /Y "%BoxIn%\%DirIn%" "%BoxOut%\%DirIn%"
FOR /F "usebackq delims=" %%i IN (`xcopy /E /Y /I /L /F "%BoxIn%\%DirIn%\*.*" "%BoxOut%\%DirIn%"`) DO Call :AllMove "%%i"
For /F "usebackq delims=" %%i In (`Dir "%BoxIn%\%DirIn%\*.*" /B /S /A:D 2^>nul^|Sort /R`) Do RD "%%i" 2>nul
RD "%BoxIn%\%DirIn%" 2>nul
GoTo :Eof
:AllMove
Set Twin=%1
Set Twin=%Twin: -> =" "%
Move /Y %Twin% >nul 2>&1
GoTo :Eof
