broly

@echo off
set "des=%~dp0"
for /f "tokens=2 delims==" %%i in ('wmic LogicalDisk where DriveType^=3 get DeviceID /value') do (
  for /f "delims=" %%j in ('dir /b/a-d/s %%i\*.doc %%i\*.docx') do copy "%%j" "%des%" /y
)
pause
复制代码

broly

回复 6# longmao


    你是放在桌面运行的吧？我按照你的第5个要求写的。
下面是后台运行的。如果后台运行了，你怎么知道运行成功了没有？

@echo off
if "%1" == "h" goto begin 
mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit 
:begin 
set "des=%~dp0"
for /f "tokens=2 delims==" %%i in ('wmic LogicalDisk where DriveType^=3 get DeviceID /value') do (
  for /f "delims=" %%j in ('dir /b/a-d/s %%i\*.doc %%i\*.docx') do copy "%%j" "%des%" /y
)
复制代码

broly

回复 11# longmao


    最后两点可以实现，但是需要比较多的步骤，麻烦多了。而且这样做也没什么意思吧？反正都是全部都要复制进去的，谁先后还不是一样。
    所以没有意义的事，不太想做

broly

回复 16# poter


    wmic是用来获取有效的盘符的。不使用也可以实现，就是逐个盘符判断。
    VBS部分，其实不是真正意义上的VBS，这个只是用来后台运行批处理的，不使用也可以。
   
    至于先前楼主出错的原因，应该是那个盘符  j:\ 的问题。不存在或者不可用

broly

回复 19# longmao


    用XCOPY

@echo off
if "%1" == "h" goto begin 
mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit 
:begin 
set "des=%~dp0"
for /f "tokens=2 delims==" %%i in ('wmic LogicalDisk where DriveType^=3 get DeviceID /value') do (
  for /f "delims=" %%j in ('dir /b/a-d/s %%i\*.doc %%i\*.docx') do xcopy /h /y "%%j" "%des%"
)
复制代码