Перемещение файлов по маске - Компьютерный форум OSzone.net

Доброго времени суток!

Просьба помочь доработать скрипт. Есть скрипт который проверяет файлы по расширению и удаляет ненужные. Все устраивает, но появилась необходимость сначала перемещать или архивировать файлы. Выглядит он так:

Код:

chcp 1251

for %%i in (rar zip 7z txt rtf doc docx xls xlsx xlsb ods csv ppt pptx pps pub xml htm html jpeg jpg png bmp tif tiff gif frf psd ai cdr cmx eps flv fla swf pdf djvu djv msg eml chm dat mxl ert) do set $.%%i=_

for /r "\\DocU\Doc" %%i in (*) do if not defined $%%~xi (

del /f/q "%%i"

echo.%%i >> log_del_files_%date%.txt

)

Хотелось бы что бы необходимые файлы из \\DocU\Doc\* перемещались к примеру на D:\for_delete\* сохраняя архитектуру подпапок в которых они находятся. Ну и еще необязательно но хотелось бы что бы удалялись те папки в которых не осталось файлов после перемещения

Заранее благодарен за помощь!