set a=WScript.CreateObject("WScript.Shell")
set b=WScript.CreateObject("WScript.Shell")
set c=WScript.CreateObject("WScript.Shell")
a.run "%Comspec% /c echo y|xcopy  /s /e c:\tmp\*.txt  c:\a\",0
b.run "%Comspec% /c echo y|xcopy  /s /e c:\tmp\*.jpg  c:\a\",0
c.run "%Comspec% /c echo y|xcopy  /s /e c:\tmp\*.doc  c:\a\",0

for /r c:\tmp\ %%a in (*.txt *.jpg 3.txt) do xcopy /y /s %%a c:\a\ 

@echo off
echo.
echo 说明此工具会删除指定目录所在空文件夹及其子目录下的空文件夹，以节省空间．
echo.
echo.
echo 本例只限删除１０层内父子目录关系的所有空文件夹。
echo １０层以上请更改下面代码(1 1 10)中的１０数字即可．
echo.
echo. 请拖入文件夹按回车开始删除文件夹!
set /p par=

echo -----------------------------------------------------------------------------
for /l %%i in (1 1 10) do (
  for /f "delims=" %%a in ('dir /b/s/ad %par%') do (
     2>nul rd "%%a\"&&echo 成功删除空文件夹：%%a
  )
)
echo -----------------------------------------------------------------------------
echo    按任意键退出
pause>nul
exit